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Surveillance of the oceans by shore based facilities 
is an important segment of the ASW mission. A system with 
enhanced capabilities is presently being develonved but 
Beoulems arise in the training of Navy enlisted persornel 
Hemutilize this sophisticated equipment. 

meeeemoecded tutorial training progrem ovreserves all 
the benefits of computer assisted instruction (CAI) while 
reducing the greatest disadvantage, cost. A demerstration 
of an embedded tutorial is vresented which introduces the 
new overatcr to the system, orovides help during 
operatiors, and has refresner exercises for experienced 
operators. Since a sophisticated computer-desed system 
must provide guidance and direction during operations the 
introduction and refresher are availeble at almost no 
cost. 

This demonstration system is interded only to show 
that a tutorial system can be developed and deployed end 
@eescenot purport te be a complete deployable system 


itself. 
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I. INTRODUCTION 


An embedded tutorial is ideal as a training device for 
individuals required to utilize a computer in their 
operational tasks because it possesses all the advantages 
of computer assisted instruction (CAI), while reducing its 
major disadvantage, cost. CAI impreves the student’s 
knowledge of the subject because it continues to give 
additional information until the individual achieves the 
desired level of performance. Studies have shown that this 
hes resulted in higher test scores at the end cf the 
postructicn pericd and, in Most cases, the student 
finishes in a shorter amourt of time than that reauired 
mereeconventional instruction. One shortceaming of CAI has 
been a rise in the student attrition rate while using 
momomver based instruction in some applications. Attrition 
rate studies Snow that the use of computer based 
instruction often increases the amecunt of stucent 
failures: however, in the case of ASW trainees the 
attrition rate is decreased. This could be traced to the 
maereeermat the selectees for AS® training are of a slightly 
higher initial aptitude and are more inclined towards use 
of a computer since their operational jobs involve the use 
of some type of computer. Apparently, a machinist mate 
being trained on the repair of a pump would feel frustra- 
ted in not being able to get his hands on the equipment 


and thus would reject the use of this type of training. 





The embedded Pit ord | described in this obaper 
demonstrates the capabilities of a computer and a color 
Pmeaoniecs console in the training of a prospective ASW 
tracker. It is only a demonstration because the ectual 
memrem is not fuily developed, the actual type of color 
graphics console was not available, and the actual data 
for test cases were unattainable. 

The numbers throughout this paper fall into three 
general classifications, common knowledge values, general 
range values, and specific ccnstreaints. The common 
knowledge values are those numbers that can be found in 
any basic textboox, sucn as the speed of scund in water, 
and thus are not classified. The general range values are 
those where a spectrum cf vaiues could be sighted and thus 
a random value was vicxed, for example 41.8 as the 
frequency of the signal being detected. Tne last number 
used throughout this paper are a series of XXX°s that are 
Substituted for values which coulée not be revealed for 
security reasons. The actual values would be included in 
the operational tutorial. 

The tutorial permits tne user to proceed in eany of 
three areas of study depvending on his abilities and 
previous training. There is a basic tutorial on the 
overall system, the environmental probdlems, and the 
Mmorpmulas uséd to tranform the data into useful displays. 
Next, there is a short tutorial on the types of data 


displays that a tracker will use in the operational 


12 





sibenn 


system. Last, there is a set of Scenarios that can be used 


to refresh the skills necessary to effectively track 


vessels. 


11 





Ceo Pore ere ron in LS 


Peer URPOSE OF EMBEDDED TUTORIALS 

Prpeeemoedaed ~tutorial, as discussed in this paper, 
Geems the use of computer aided instruction (CAI) on the 
Memoucer and graphics terminals that are actually used to 
track tarzets. The purpose of embedding the tutorial in 
the operational sSyster 1s tarec=fOlds first, thre 
individual >eing trained becomes acrustomed to the 
Burroundirgs and the resvonse tire of the terrinel; 
meena, sirce the computer and terminals are ealready 
present anc there is roor in merory to store the tutorial, 


mememeprocectir® is more cost-efficient than a severate 


<t 


Seyesvem or conventional training vrethods; Co boa, i 
meovides a referé€nce manual for an operator actuelly usine 
meee system. There are many more subdtle benefits in usire 
meemoeaded tutorial. Ey training an individual, at least 
partially, on the actual operational system a ereat deal 
of the anxiety of a young, inexperienced onerator can be 
relieved. The operator will become familier with the 
Somputer, the system, and their idiosyncracies, and thus 
Bemermore comfortebdle wher the pressure of the mission 
vegins. 

An emyedded tutorial maintains all the advanteg2s cf 
mememt-r based instruction while reducirg one of its major 


Mmeecavanteages, cost. Since the tutorial is part of tke 


eZ 





O@oerationd! system, a major part of the cost is 
eliminated. Yven if sore additional remory and terminals 
have to be installed, great Savings are achieved. The data 
Gollected by several surveys shows that ever with 
stand-alone computer-based instructional systers the money 
saved becaus® of reduced training time balances the cost 
G@reecre system. 

While manuals could be provided for the user to review 
meena problem arises on tne operational system, it would 
be more beneficial for the user to see the solution or 
course cf action on the terminal being used at that time. 
Meeepecture of a surface plot in 2 book cannot compare to 
Ome On a color graphics terminal and the comouter cén 
Meoduce a vast amount of variations corresponding to the 
particular problem. Since the erbedded tutorial is 
attached to the operationel data, the reference material 


Seid be kept constantly up to date. 


feo tol eM STTuP 

mars tutorial was desigred to deronstrate sore of the 
Beeeadilities of a color graphics syster to vrovide a 
computer-based instructional package. While the Ramtek 
Mee Used for this study performs many of the desired 
Mee tions: easy color manipulation, simole invut devices, 
memeer response to user input, and fair picture resolution, 


the proposed 


t 


femtek 9422 system has supericr 
GCHaracteristics. It out performs the 103A syster in speei, 


resolution, and other capabilities. Tne Ramtek 94¢2@ is on 


a 





mecmerorde™ Of ten times faster than the present system. It 
mse nes O24 x GekX virtual picture and 2 19824 x 1287 
screen resolution which enables the displays to appear 
much more lifelike. Some of the capabilities of the Partek 
94¢@@ that erable the designer of a iu Olina more 
meri bidity are: penning, zooming, dSlinkin&, rotation in 
OM-degree increments, scrolling up, down, right, and left 
within arbitrary rectangular limits. interrupts, and 
Meteays. Since all of these function are incorporated in 
mmemeemachine, the coding of a tutorial or any prograr will 
be greatly reduced. A Ramtek 9402 is presently bdeing 
installed dio avdl ee hoSG2hadUate “school Corouter 
Laboratory, which will allow the further develcoment of 


this tutorial system. 


C. ADVANTAGES / DISADVANTAGES 
1. Student Achievemert 

Wigewmetncctivenss ©f corputer aided instruction 
Mempered tc conventicnal instruction has been measured 
only oy TUM rrOoriapee and 82ot by or=the-jcb 
Memrorrance after graduation. Student achievement might he 
mmc «in predicting quality of performance or the job »ut 
the correlation between these two measures has not been 
Meeeaolished for any of the training methods. Student 
echieverents heve shown that corputer aided instructior is 
meee ood Or better than other methcds in ovractically all 
mies. .1€ fact that student echievement with computer 


meemeac instruction (CAI) is better thar conventionel 


14 





Mmasericy?on Or individualized instruction ray also te a 
mepoect consequence of the fact that students instructed by 
Meee remain in these courses until they have mrestered all 
the lessons. The critical variable thus becomes the ancunt 
of time needed to complete courses given by corputer-bdased 
miseteruction. An additional benefit is achieved by ensuring 
that an individual has rastered all of the lessens needed 
to be a qualified tracker in the fleet. 
mee ocucert Time Savires 

Mince neselned TepOrt, IDAs paneer P=-1575, prepared 
Mmemecne Cifice of the Under Secretary of Deferse fer 
Research and Engineering shows that computer-based 
Mmeetruction saves ahout one-third of the time required for 
courses using conventional instruction; however, there ere 
wide variations in the amounts of savings thet have deen 
mapocte’d. two major uncontrolled variadles in these 
Bema.’s are the unknown quality of the instructional 
mmeorialS Used in the various comparisons and urcertainty 
thet the sere amounts cf course materials were used in 
mera methods of instruction. 

hie faietrthet GAl saves tire is cornsisten with 
Well-known information ahout the effect of great 
Mrrere’nces both in student abilities and ir knowledge of 
Mees SUDject at the start of any course. In conventional 
meovruction with a fixec amount of time, these differences 
lead to variations in the amounts of knowledge acauired dy 


te end of the ccurseé, as shown by a distribution of final 





grades. In anmdividuelized Pas et LON, wnetrer 
memolcver—Dased or not, each student proceeds at his own 
Seeenwana differences between students influence the amount 
Or time needed to complete the course more than it does 
mgemedrount of information acquired. Most of the tire 
meeeees ir individualized instruction are due to those 
Studerts whose rate of proaress it cor ve mt oned 
meerruction weuld te too slow; typically, that rate might 
Memeone that permits about 32 nercert of the studerts to 
eomolete the course during the fixed period of time. 

An example of the time savings can be seen in the 
graph (figure 2-1) which shows the reductions in student 
meme fOr avout 12,08¢@% graduates over a 1&-month reriod 
pmoengz May 1976. The results were for three courses on the 
Navy Comouter Manezed Instruction System at Naval Air 


meeinical Training Center, Millington, Tennessee. 
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eee ros ent Pttrition 

Since the rethod of instruction ray influence the 
mumber of students who can sucessfully complete a cours:, 
the rate of academic attrition associated with alternative 
methods of instruction is a matter of concern. The rates cf 
meni tion is a measure of the cost of instruction since it 
influences the number of students needed te enter a course 
Mmemorcaer to produce a specified number of graduates. Only 
two computer-based instructional systems, the Air Fercs 
AIS and Navy CMI, have received extended, though still 
mametea, use in military training. Academic attriticn may 
have increased in courses taught this way, comoared to 
eee ition With cGy Cumnoncd|  PaspructioOn@mauring orior 
mamecas, but the abilities of the graduates were 
meeniaticently higher. Also since these corperisors dn not 
meee into account possidle changes in the qualificetions 
feeoutents over the same time pericds, the evailable data 
suggests, Dut dane¢es MOU Dic ve etc tet. COMputsr—based 
Mmeevructior may increase acaderic aettrition over thet 
memna With corventicnal instruction. Figure 2-2 shows the 
attrition rates of seven courses taught using doth methods 


Seernstruction. 
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fee wee Ges Or Ss bUdents and Instructors 

Seudedwts ec ilmrost always favor computer-based 
mestructior over the conventional instruction, while 
Mmesuructors alrost always haves wunfavorebdle attitudes 
memeeace tne CAL instruction. The stucerts attidudés are 
generally due to two factors: exciterent about the use of 
a new type of Machire and better control over the material 
meme is $§6«(being taught. Both of the factors are constantly 
at work and thus by the tire the novelty of the system 
wears off the student generally nas developed a strorne 
attitude that he has control over his academic destiny. 
amemerstructors, on the otnér hand, dislike the new system 
Meeeuse thelr professional training is still largely 
mmeoeted towards corvertional instruction and those that 
are assigned to computer-based instructional duties 


receive little guidance on how to conduct such courses. 


Pee COS T—ETPECTIVEN 


< 
14 


try 


So 

There is no evidence that cn] method of instruction is 
mepeecost—effective for all types of military trairnine. 
Meee Tost cost-effective method for @ particular situaticn 
fem aepend upon such factors as type of course material, 
location of instruction, number of students, and life-span 
Memeoe treining. It 1s apparent thet the lack of cost data 
currently available for this system makes it imvessible to 
eeeamain?e setisfactorily the conditions which would make a 
Dearticular method of instruction the mast cost-effective 


alternative since the system is still in the research 


22 





memeses, Fowever., the type of course material seems ideal 
for a computer-based instruction since the trainee will be 
Mer] the computer ir the erecution of his duties. The 
location of the instruction in an embedded tutorial is 
ideal because it is present in his work spece so that he 
is able to refresh his skills at any time. While the 
moumoer of students utllizing the instruction has a bearing 
on the cost-effectiveness of the instruction, the embedied 
tutorial reduces or eliminates the cost of the computer. 
Since this system already nas the computer for overationel 
mmmeoses, the tutorial can be stored and operated on that 
memouter, with the possidvility of purchasing only one 
additional console. The life-span for this system lcoks 
favorable for computer-based instruction since it is a new 
system that should be around for an exterded time. since 
ies c¢ rew system, the instructions will constertly heve 
momeoe Updated which is ideal for a computer-based syster 
as comvared to a textbook thet would have to be revorinted. 

Ctner benefits, beyond those mertioned ervove, occur 
with comouter-based instruction largely because the 
moeputer cen corpile records and direct the attention of 
Mmeeeructors, on the basis of various algorithms. The 
momeeowin2 jist of benefits is illustrative rather then 
eomolete: 

ier ore precise data for improvire end updatine course 

maserials; 


eee improved control over eauipmert, facilities, and 


a 


Materials for instruction; 


3. Improved allocation of resources avtong students; 

4. Imroroved ability to accommodate fluctuetions in 
Student loads; 

5. Increased student/instructor ratios, as well as the 
ability to use some instructors with less advanced 
mualifications; 

See eeduced need for support by Ronieas t Puc i none | 
personnel; 

7. Reduced time of students on bese waiting for 
courses to start; 

Be iMmorovec integration of records of studerts at 
sorool With those in central, corputer-based rverscnnel 
files; and 


i 


Pemeroproved Utilization of instructors. 


Be 





Pe eee lene 


The embedded tutoriel, as described in the following 
chapters, is designed to tRawna an inexperienced 
imeividual, provide basic data information, and enhance 
the skills of an experienced operator. The three separate 
sections of the tutorial provide the versatility necessary 
to Make this system useful because it covers the entire 
spectrum of training. AS a new recruit is assigned to the 
station it would be advantageous to indoctrinete him 
utilizing the actual operational system. After a thoroueh 
review of the basic system, the user can start to get a 
feeling for the type of deta to be processed by continuing 
Miemtutorial in the data display section. when the user is 
ready to actually use the operational system, it would ode 
advantageous to first practice on some old data which can 
Memaone by utilizing the scenario se@ction of the tutorial. 

The displays presented throughout tnis paper (figures 
S-1 to 6-17) are representations of the actual displays 
that are seen on the operational tutorial. The figurés do 
not adequately reflect the actual display bécause the 
operational system is on a color graphics console. The 
outer border of each figure represents tne limits of the 
screen, While each horizontal line depicts a change of 
mmor. For example, figure 3-2 is broken into three 


meeu1o0rs Dy the two horizontal lines. 





mee «INTRODUCTION DISPLAY 

The Embedded Tutorial Introduction display (figure 
3-1) ovrovides the user with the option areas available. 
The user, dependent on his skiils, can choose to follow 
mmo Of the three sections of instruction or quit the 
emrre tutorial. If he chooses to review the bdasic 
principles of the system (option a), then he will receive 
the fundamentals of the system, some of the environmental 
mmonplems, and a little theory on correlatior techniques. 
mmesoesection of the tutorial flows through the basic 
components of the system but allows an inquisitive 
individual the ability to delve into some additional 
details. The CWECR ia |. Stat hs Off with a simple 
meproductior followed by the overall view of what the 
Pyeovenm iis trying to accomplish. Next a list cof probler 
eeeas related to the ervironmert of system operation is 
M@eovided with the option to further examine each of these 
problem areas. hen the user has completec the 
environmental problems, a description of the correlation 
meenonique is discussed followed by a brief exhibition of 
the complex machinery of the system. Upon completion of 
meme section of the tutorial the program will return to 
the display (figure 7-1) in the main program and allow the 
user to again proceed along any of the tnree routes, basic 
memmciples of the system, data information displays, or 


scenarios. 


24 





oY PEDEED TUTORIAL INZRODUCTION 


This tutorial is designed to meet the needs of an 
assortment of users, from the nevice to the experienced 


ey 


Meerdtor. There are three categories that can be reviewed: 


a) The basic princinles of the system are discussed and 
Many of the problems associated with the Sricitem «Ss 
eerronfrent are dealt with in this section. 

b) The type of data that will be disvlayed durire actual 
system operation is presented along with explaretions of 
the data and key areas to watch while tracking. 

c) 4 set of practice scerarios are presented based on the 
Daremeters inserted by the operator. These scenarios allow 
the user to see actuel data being presented and the 
effects cf various parameter settings. Kev points are 


also highligehted in this section. 


type in the letter cf the desired category cr (ca} to quit. 


Phe tONuG? TON “DISPLAY 


eG yes 





Cemriemurcdayroncal deciaes that the data information 
displays (option 6b) is the area that neeis to be ccvered 
next, then ar assortmert of data in the format thet will 
be used in the operational case will be presented. This 
mera includes: estimated positions, courses, Speeds, 
probabilities of accuracy, tau values, doptler values, and 
surface plots of the suspected track. These are only 
example displays to illustrate the format of the data and 
Meme xpidin the meaning of various values. «ey eareas of 
interest are also explained in the lower section of each 
feesp lay. 

When the user is ready to tackle the operaticnal 
meseS, Gate that has already been processed is provided in 
the scenario section (option c) to enhence capabilities 
While keeping the operational data safe from acciderteal 
removal. The scenario section allows the user te insert 
tne parameters and then displays the actual data in the 
Sare format as the operational system. It also gives a 
Moye brief explanation of the reason for the outcome of 
meemcodta; i.e. The data is variant due to the low 
Memerence level. With this information the us@r can return 
to the parameter setting display and edjust the values to 
Obtain a better set of data. This is very useful in a new 
System because there are ro values to which the parémeters 
Can be set which autoratically achieve the best results 
eemetime. The scenario section is a good starting place 


and also arn excellent place for an experienced overator to 


ae 





improve PevtormancewsanG = practice different types of 
parareter settings without damaging the operational data 


or downgrading operéticnal performance. 


Pee INSTRUCTIONAL DISPLAY 

The instructicnal displays, an example is figure 3-2, 
provide the user with the basic understanding of how each 
display will be set up. Each section has slightly 
Merrerent characteristics so there is a Gham e ment 
masvructional displey to explain each sé@ction of the 
manorial. 

Meee instructional! display follows a basic pattern: 
menu, illustration, and explanation. Th menu provides the 
user with the possible options available to him at ary 
time. They include: Continue which will proceed to the 
next basic illustration; Return which will return the 
program to the initiel display; and, option catezories to 
mmoceed tO any of the possible areas of further detail 
Mesiréed at that time. The illustration area cf the display 
memes from @€ picture of the situation, to a display of 
Poa, tO the correlation formulas. The illustratiors try 
to cover as much information as can normally tbs digested 
Meme Single frame and ther the explanation section tries 
to clarify any additional problems. The explanation 
occasionally causes the user to de uncertain abdout some 
point. Additional information can generally be obtained by 


mmeocecding to one of the option areas. 


Zu 





Rasic diagrams will be illustrated in this area. They will 


depvict a view of the overell system, envirormertal 
problems, and detailed displays of oauesticnable arsas. 
Review of this section before reading the explanation 


below will be helpful in succeeding displays. 


Arn explanation of the middle area will tbe disvlayed in 
this section. Generally it will de a simvolificd review of 
the basic ccncept with a few new ideas. If the new ideas 
ere not fully understood, they will be listed in the vrenu 


to be pursued later. 


tees Cano? COM TINE 





ile Cl eON bl Sr Ay 


EVs SZ 
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IV LC o fo le UTOR LAL 


This chapter describes an embedded tutorial written for 
ar ASW system presently being developed for the United 
Mmeates Nevy. This section of the tutorial is designed to 
indoctrinate a new overator in the basic characteristics and 


problems of the system. 


PeeeaNCROLUCTION DISPLAY 

The introduction display (figure 4-1) provides the user 
with the basic concepts necessary to understand the system’s 
maerpose. It preperes the user for the general flow of the 
tutorial and the option areas that will be availatle for 
further study. If an individual only types cto proceed to 
the next display, then a basic overview of the system and 
its ernvirormental preblems will be presented. However, the 
User has the option to branch into the greater details of 


Meey Of the problem areas and forrulas. 


Peo VERALL SYSTEM 

The second display (figure 4-2) familiarizes the user 
with the purpose of the system, provides a possible 
configuration of arrays, and the target area that is toca ode 
covered. There is no greater detail available at this point, 
memeecune Only options are to continue or return. If the 
operator chooses to return, a new disvlay will be ovresented 


memem asks him “ILO YCU REALLY WANT TO RETURN TO THE MAIN 





PROGRAM? (y / rr)’. If he responds “y” the program will shift 
back to the main program, but if anything else is typed the 


Peoeram will return the previous display to continue. 


C. ENVIRONMENTAL PROBLEMS 

When the cortirnue option is taken a new disvlay (fisure 
4-3) appears on the screen describing the preblers 
associated with tne environment that th2 system must work in 
momcaetect targets. It discusses the problem of extraneous 
noise always present in the ocean, the time delays in 
receivirg the signals due to long distarces, and the problem 
of sound traveling at various speeds. All of taese problers 
Saeomcouched on in this one display, with further explanétion 
in subdsequent displeys. 

The next set of dispvleys demonstrates cne area wnere a 
meompurver based embedded tutorial is far more proficient in 
treining than oe normal textoook could possibly ve. There are 
mipeoisplays, figure 4-4 through fieure 4¢-S, wnich can de 
presented from this point and then reveatedly cycled through 
in any order desired by tne user. Presently there are only 
Six displays, but this is only a sample of an enbdedied 
meporiai, there could be 28 or S@ or more displays oper to 
the user to traverse in any manner desired. This allows tne 
Meee cOntrol the order of areas of learning corresrpordire 
to his irterests and curiousity. 

The first environmental problem that the system must 
Overcome is the presence of vast amounts of noise always 


Meeseent in the ocean. In the freauency ranges that the 





mere ltl lance system 1s Concerned with, the principle scurce 
of noise is other snips in the ocean. Once the noise is 
generated it will travel great distances dut will dissipate 
and thus be useless in detection. it 18 verv similar to 
trying to listen to a single person in a large noisy partys; 
the person’s voice is distinguishable but tne background 
merse makes it rather difficult to clearly understand it. 
VWigure 4-4 illustrates now the desired frequency of the 
vessel stands out with the noise slightly lower. 

If “d° was typed while in any of the disnlays (figures 
4-2 thru 4-9) a presentation of the problem associated with 
Perge distances would appear on the screen. This displey 
(figure 4-5) compares two possible arrays trying to d@stact a 
target in a specific area, where ore is 12@0 miles and the 
other is 520 miles from tne source of the signal. this 
creates two problems. Cne is due to the large difference in 
distances which causes time delay problems (figure 4-&), and 
the other problem is due to tau line separation ‘figure 4-6 
omdeee-7). At this point the user can choose to follow up on 
either problem or possibly one of the other four options. 

The tau lines display (figure 4-6) describes whet the 
tau lines aré and how they are involved in the system. ‘Yau 
lines aré a time delay between reception of the same siznel 
feeeeeewo different arrays. Thus if a signal is preduced 
meewaere On a line equidistant from both arrays, it will 
reach the arrays at the sare time, this line is the zero tau 


line. Likewise, any signal produced on line @-4 (figure 4-6) 
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will arrive at array A  &@@ seconds prior to the same 
signal arriving at array |B. AS line &-4 demonstrates, 
these tau lines are hyperbolic in shape and they get rore 
bent as the line moves closer to either array. This bending 
results in the distance between any two tau lines not being 
constant. As the tau line problem display (figure 4-7) 
ijlustrates, separation of lines near point 4 is nearly 2265 
miles, while tney began only 5@ miles apart. Another problem 
is that, over the sere distance, different tau lines, i.e. 
Me only separate to approximately 6& miles. Thus, 
depending on the position of the area to be covered, 
feemracy can diminish quite drastically. From this voint in 
the tutorial, the user can examine more problers, review 
moe problem, or continue on to the next general area. 

Ir the user decides to proceed with sore new problem 
meds, tWO more have been implemerted, time delay and water 
temperature. The time delay display (figure 4-8) again shows 
meee DaSic ovicture of tne surveillance area, but then 
MeescussesS a new problem. [t expleins that e signal produced 
at point <A can arrive at two different arrays separatad by 
Mueerece «€6Lime )6dilfference. This problem has to be accounted 
moreby the computer. 

she last displey in this section of vroblems deals with 
moemeopeed of sound in water and how temperature, salinity, 
end depth effect the speed. Tne display (figure 4-S} 
Mmeesetretes tne variance o? sneed with depth. As the depth 


is increased the speed of sound initielly slows dowr until 


Je 





roughly the 1@@0 yard depth and then it starts to increase 
meemally. AS explained in the write-up under the graph, 
Mmeeea, Of sound also increases as the temperature and 
Salinity increase. Again the user has the opportunity to 
continue reviewing any of these problem areas, continuing 


mieetutorial, or returning to the main vrograr. 


D. SYSTEM EREAK TOWN 

Continuing the tutorial presents the user with an 
estimate of the area this system covers. The display (figure 
4-12) illustrates that the coverage is about the size of the 
meave Of Montana, for an arbditrary operating distance in 
this example ir excess of 15¢€0 riles. This display also 
shows that the area can 52 broken down into smaller, rore 
manageable regiors of about 48 miles scuare. Thus there are 
1@@ regions in this surveillance area and they can be 
mevered by Xik correlations per hour. The XXX was purposely 
displayed to show where the vast abilities of the computer 


could be showr. 
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BioeGe cll ORLaL INTRODUCTION 


This embedded tutoriel is designed to provide the 
Merce user with an introduction to the ASW surveillance 
svstem. The system is designed to detect vessels at 
meereme distances, in excess of 1406 miles, in order to 
Pome ct OUFr coast and snipping lares from enery subrarines 


and other ships. 


Remy Of the followitre displays exhibit the fundamental 
concepts of the system ard then allow the user to delve 
into the details when desired. %bdserve the menu at the ton 
of each disvlay to see what options are available at any 


Piven time. 


type c oO. Cortinue 


FIGURE 4-1 


EAS cere con AL  TNEPODUC TION 
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type ==> Continue, Return 


(GREEN) 


The surveillance system is desiened to detect sienals 


produced by tarzets and then determine the pvosition of the 


targets. Assuming there was an area (greer saneare’ in 


ocean to be watched for submarines, the two arrays 
hydrophones (1 and 2) and a methed to analyze their outnuts 
would be necessary. For better results additionel arravs 


Ben as 3 could be added. 





FIGURE 4-2 


OETA bin oS toe ky SVL RW 





Oe 


type==> Continue, Distance, Time, water(temp), Noise, 












900 MILES 


500 MILES 


Mmemanove menu lists many of the problems associated with 


Peersyster due to its @nvironrent: 








Meme istances are quite leree, on the order cf 15@?@ miles 
mo this example. 
Time delays caused by differences in the time of arrival 


of the signal et two different arravs. 







3) Water terperature and salinity variations effect tha 


moeeed of sound. 







4) Noise created by other vessels distorts the reception of 


the desired 





Syoueals 


FIGURE 4-2 


PVP ONVENTAL PROBLEMS 
oS 





type ==> Continue, Distance, Time, Water(temp), Return 


VOLTAGE 
(volts) 


The detection of a specific signal is adversely afferted 
by additional rnoise. This detection can be compared to 
trying to listen to a specific person at a large noisy 
Mey. ic1€ masority of signals detected in the range of 
1@Az to 49682 are generated by other vessels. dowever, 
greater distances cause these signals to te weaker and 


untraceable. 





FIGURE 4-4 


NOISE PROBLEMS 





fyoe=>Continue, Time, Water(temp), Lines(tau), Noise, Returr 


SOOe ir LES 


SOUS MILES 


memern excess of 15&¢@@ miles in this Szample. The lore 


caus2 problems of diffusion ani laree® separations ir the 


- 


moeeerneés. Wher the detection of a siegnel is accomplished 


Dy two arrays that are at different distances fror the 


source of the signal, a time delay must be computed in 


M@eaer to pirpoint the position of the source. 





PES NC eee r oe Ley 
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type=>Continue, Noise, Time, Waterftemp), Line’probd), Return 


3 => 500 TAU LINE 


I > 0 TAU LINE 


Tau lines are meesurement lines distinguishing the tire 
mmeval) Cf the signal at two different arrays. If arrays A 
and 2 are 190¢@ miles apart then a sienal troduced mricway 
between A and B (peint 1) would arrive at both arrays at 
exactly the same time. Additionally any signal produced or 
Meee —2 would errive at both arrays simultarnsously. In the 
wen manner, sigrels produced on line @-4 errive at the 


arrays with the same amount of time delay in all ceases. 





FIGURE 4-€ 


TAU LINES 





> Gontinue, Noise. Time, LTistance, Water(temp), Peturn 


225 MILES => 
4 


65 MILES S23 


Since the tau lires are hyverdolic in shape, another 
Broplem arises in thet the svacing between any two lines 
meee not remain constart. The lines at poirts 1 and 2 
Spacec 54 miles anert. The lines 1-2 separate to €5 miles 
iene time they reach point 2, whereas lines 3-4 spread 
lomeces Miles by the time they reach point 4. This veriance 


Semecause drastic differences in the accuracy of the sieral 


received, dependirg on the position relative to the arreys. 





FIGURE 4-7 


Aer Ue eee Oe Wakes 
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type ==> Continue. Noise, Distance, Water(temp), Return 


LS OOS I LES 


500 MILES 











Since sound travels at 2989 Xts. (34@@ riles/hour), 
a signal could be considered to travel at one rile 
per second. At this speed it would take a signal 15¢2 
Mameeor £9 minutes to travel from point A to array 2. 8ut 
ioe would Peek Seietupes fOr le tO travel to array ¢, 


thus arriving 17 mirutes before it would arrive ét arrey 2. 







This difference must be accounted for ty the ealecrithms 


in the computer. 


FIGURE 4-& 


Sav oGAY Pe Or Le Ms 





Sonor wrueweNolse,, Distance, Time, Return 


iE IbOC li y 
(yards/sec) 


mime velocity of sound varies as a function cf 
memoerature, salinity, an@ dentn. In the first 
Mmmemerce Surface, velocity is mainly affected by tenpera- 


7 


ture and salinity, after which dent! 


(oressurte) is the Taiz 


menor. AS terperature and salinity rise, thea velocity of 
sound increases. As the pressure increases due to 

depth, the velocity of sound also increases. Thess 
meemeances aré not severe but when the measuremerts are 


in tenths of a second, any chanze will cause inaccuracies. 






















type ==> Continue, Return 




















When arrays are positioned, as in the avdcve display, it 












allows the system to cover a lerze aree of ocean. In 






mero example an aréa 4¢@ miles Sy 4@€ miles or roughly the 









mezeomot Montane. This area can be Further suddivids etc 







1?@ sectors, each 4€ miles square to Mexe tne trackine 





easier. Fach of tnese sectors can presently be covered by 


Mmerecorrelations per hovr. 


FIGURE 4-12 


AREA BREAXTDOWN 





fee EY DROPAONES 

The next portion of the tutorial provides an explanation 
of the hydrophone, the arrays, and steering the arrays 
toward the area of surveillance. Figures 4-11 thrcuveh 4-12 
Mibustrate the basic principles of correlation and the 
Characteristics of the s&ydrophore arrays. AS figure 4-11 
exhibits, the area ccevered by a single beam increases with 
distance from the erray and accuracy cecreeses 
proportionately. 

The hydrophone array is a long tube, about the size of a 
large fire hose in circumference ard roughly <¢,¢@0e feet 
mong , containing approximately Ge HyC@EcCpNOnes.— Sack 
mearopnore works in the same manner as @ sound speaker in 
reverse, it receives the waves of sound and ROT ante them 
momo €lectrical signals. Figure 4-12 illustretes the rough 
Shape of a beam formed by the hydrophone array. This shape 
varies in width and length with frequency, a high frequency 
beam, for example, being snort and narrow. 

As figure 4-12 illustrates that the beam is directed 
Peeatent out perpendicular to the array when no corrections 
are made to it. However, it can be directed as figure 4-1é 
illustrates. Tne shifting of the direction is accorvlished 
by delaying the signal received by some of the hydrevhones 
longer than others. Since there are about €@ hydrophores, 
there can be about 60 possible combinations producing 


roughly €@ bveams to cover the area. 
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Saree ontanue, myarophones, Ellipsoids, return 





Momrelation is the process of determining the relatiornshir 
peueneis received at two different points. Arrays 2 and ¢ 
Mmeeeive Sisnals continuously, process ther by tire-delay 


techniauss, and analyze the results to determine the degree 


Beecorre€letion. Wher the correlation level is significantly 


Mien, then a vossible contact is recorded. A series of 


MemeractsS establishes a track with verious possible levels 


mecertainty. 





HIGURE “4=)1 


CORRELATION 





type ==> Continue, Array (pointing), Ellipses, Peturn 


BEAM 
PATTERN 


lake ho te i-eaVeneR-eemayerene 2 14 10e 0 6 « 9; 
HYDROPHONE ARRAY 


The system for collecting signals is an array of 
hydrophores, roughly 2900 feet lone containing €3 vassive 
momar devices. If no adjusting (pointing) of the arrey is 
cone, then only noise waves coming in dfirectly 

the array will be detectea. The noise arrives at the array 
in the same manner that a wave crashes on the beach, sore 


mem] in straight and others hit at an argle. 





FIGURE 4-12 


MYDROPHONES 





tvpe ==> Continue, Hydrophones, Fllipses, Return 


HYDROPHONE ARRAY 


In order to cover a large area with a single pair of 
‘Tarrays, the beams must be able to be pointed in several 
Mmeeetions. *his is accomplished by using a time shift in 
the receiving of a signal at various hydrophones along the 


array. There can te roughly as many beam patterns as there 


are hydrophornes ard the beam patterns are gererally 


overlapped to ensure thet the entire area is covered. 





FIGURE 4-13 


ARRAY POINTING 
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fee 2 LLIPSES 

When contact is made by an array, the area of probable 
Contact is avery long narrow ellipse centered along a tau 
line. When two different arrays detect a signal then the 
ellinse is centered at the intersection of the tau lins, 
and its shape is dependent on their angle of intersection. 
As the display (figure 4-14) shows, when the angle of 
intersection of the tau lines is nearly perpendiculér, the 
ellipse approaches a circle and therefore there is a much 
smaller area of probable contact. As the teu lines become 
more parallel the ellipse becomes longer and the probable 
memidct area increases. When more data is accurulated on the 
Signal, additional ellipses can %e drawn as the disvlay 
(figure 4-15) demonstrates. Th2 additional ellipses are 
nearly totally confined within the previous ellitses, thus 
reducing the probable contact area even further. If tne data 
received alternates between different sets of arrays, as the 
first three ellipses illustrate, then the area of prebabdle 
@ontact shrinks rapidly. If the data comes from the same sét 
of arrays then the ellipse becomes longer and marroawer and 
eventually exceeds prior ellipses in total area. 

The display (figure 4-15) deronstrates how graphics can 
animate displays to make them appear as if they were »veing 
meewn Dy an instructor. When the original display is 
Meeeoented, Only the two outermost ellipses are drawn in the 
middle section. Then eas tne user finishes reading the 


explanation of comdining ellipses he hes the option of 
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seein2 more ellipses combined by typing “r” cr continuing 
the tutorial by typing “°c”. If more ellivses are desired 
Miey will be drawn one at a time with a two second delay 
between them. Another feature of this display is that it can 
be reached by two different routes. First it will be 
displayed when the user requests more detail in earlier 
displays (figures 4-11 and 4-14) or by following the basic 
Simplified route. Whichever route is followed this display 


mer occur at least once. 


fee ENTIRE SYSTEM 

Now that the user has seé€n what the system is trying to 
meeorpiish, a Simplified view of the complexity of the 
system is displayed (figure 4-14). This display and its 
detailed subsystems prepare the individual for the actual 
mse Or the system. 

Meee user decides to probe into the inner workings of 
Soe system, he has the opportunity at this point to see the 
Dasic technique ard some of the formulas used in solving the 
correlation. The first display (figure 4-17) describes the 
Seremeor cOherent versus inccherent calculations. This disvley 
Memonstretes that straight text can be inserted into the 
tutorial: however this is not a very cost effective 
utilization of the computer. The second disvlay (ficure 
4-128) illustrates the formulas that are used in computing 
Meemecorrélation. This display demonstrates that formulas, 
though difficult to display, can b= presented in 4 clear ari 


Semerete Marner. Again this is not an efficiert method of 





Sommunicatine this information, but it does demonstrate that 
fmeecan be done. 

some of the variables used in the calculatiors can be 
varied by the tracker to odtain a better picture of the 
actual situation. This display (figure 4-19) provides the 
user with just a few of the possible variables ané@ their 
upper and lower limits. If during the scenario or actuél 
system utilization, the tracker attempts to exceed these 


limits the computer will not allow him to input the chanées. 
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type==> Continue, Fllipses (combined), Hydroepkones, Return 





DIAGRAM A DIAGRAM B 


When a correlation is made from data received ét two 
etrays, an area of prodable contact is established. 
imeeadree Of probable contact forms an #llipse. 
as in diegrams A and 6&8. When the tau lines are nearly 
Memeoendcicular, the ellips? approximates a circle which 
imcicates a high probability of contact within a srall eeo- 


ah 


graphic area. Fowaver, if the tau lines intersect at relat- 


ively small angles, the result is a very lore ellipse, 


Meeteating a lower probability of contact within the area. 





FIGURE 4-14 


BOSS 


Sa 








type ==> Continue, Ellipses, dyirorhones, Return 


Area around A is now the probable contact area. 


When several vieces of data are gatnered avout a specific 
Sreral, then the ellipses can be combined to reduce 
@m@emaree of probable contact. As the diagram illustretes, 
the second set of data forrs an ellinse which is irside tae 
memet fllipse. Aiditional data can b2 used to establish 


meorcionel @llipses and eventually improve the detection 


to see how additional ellipses are comdired. 





FIGURE 4-15 


COMET VED SEE il rots 


Oe 





mape-—> Continue, Techniques (correlation), Filters, Return 


SUPPORT 


CENTER FILTERS CORRELATOR 


SURFACE 


BASE PLOTS 
STATION 


OPERATORS 


A brief overview of the entire system demonstrates tne 
mmeunt of complex mrechinery required to accomplish this 
Surveillence. Signels are received at the arreys erd are 
Meansmittec to the tas® station, then sert vie satalite to 
Mme sipport Certer (SC). [wtb emoGuetrewdete 15 sent 
meeouer filters and acorr2lator, wnere the computer 


establishes two sets of data (veak data files and surfaces 


plots). The veak data ard surface plots are reviewed by 


the operators to determine any vossible target tracks. 





PICU 4-16 
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type ==> Continue, Rules 
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PeN=l » Nel P 
By A = FAX, (n) eX, (n) 2px, (mre/ T)X,(m-t/ T) 


where X(a,t) is the modulus correlation coefficient 
a is the relative doppler ratio compensation 
t is the delay compensation 
A is the normalization constant 
X,; and Xz are time series sampled at time intervals T 
Fl and F2 are the center frequency of the passband for the 
time series 


Meenvasic correlation structure can seen in equation 1, 
Semone moculus of normalized sur PempOductrs =O the 
tire series samples (with one series conjugated). The other 
meoweductions are used for delay and Doppler compensation 


maerie tire series prior to correlatior. 
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Listed above are afew of the nvarameters that can 
Memedajusted to get 424 better trac« of a vessel. Cther 
parameters are demonstrated throughout the tutcrial and if 
MeemerimitsS are exceeded, the computer will adjust and 


merit y the overator. 
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Mise Section of the tutorial is designed to prevare a 
tracker for the types of data that will be presented 
during operational Corda 101m Si. ey provides some 
representative samples of data in order to explain 
eepeeicit details about the values in certain cetegories. A 
review of this part cf the tutorial would be advisable for 
all trackers as a routine before ach watch they stand 
because it provides many of the basics of each data 


representation. Such a review would ensur 


(0 


tia tt ve 
om@eravor will not totally forget characteristics of the 
System during periods of disuse. 

This section Of the tutorial begins with én 
introductory display (figure 5-1) which presents the basic 
concepts of this section and then describes the importance 
of a thorough understanding of each data display. None of 
the data displays can be overlooked by a tracker since the 
data is interconnected in such a rmarnner that the arcuracy 
of one forms a check on another. For example, the values 
Getne position-data display (figure 5-2) are checked for 
variance by the values of the covariance matricies in 
mesure 5-7. This interconnection is useful in obtaining a 
gooc overall picture of the situation but still allows the 
Meer the freedom to transverse the data displays in any 


desired order. 





DATA TUTORIAL INTRODUCTION 


mis section of the tutorial deals with the tynvnes of 
data thet will be displayed when a tracker is utilizine 
the actual overetional SiS vers The disvlays give 
representative sarples of data end then explain the 
Mummeeperistics and veint out key voints. This section of 
MeemerGorice!l iS brief but ertremely important to the 
understanding of the onerator’s jod. A quick review of 


Mmese tutorial would be beneficial to the experienced 


Meeratror before starting each session on the operetional 


system. 
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imemepositiond! data display (figure 5-2) provides the 
tracker with basic information about the vessel’s vrobabdle 
Memenion, ccurse, and speed. The latitude and longitude 
will not vary much whether the signals are froma target 
or noise; however, they can be used to determine a egood 
Seervcing point for setting tne parameters for a surface 
more one courses and speeds will vary depending on the 
type of signal that is being received and thus should be 
closely examined. For an experienced operator, tos 
covariance matrix disvlay (figure 5-7) can be ouvite useful 
in determining the validity of a suspected track. 

The peak data display (figure 5-2) provides the 
operator with some rather difficult numbers to comprenend. 
The STM/BM rumbers are the numerical representation of the 
array and the direction of the beam. It is important to 
recognize when a different array is receiving the signal 
because this can increase the accuracy of triangulaticn. 
The tau velues are important because they will vary in the 
mimes Manner as the courses and speeds; however, this 
variance can only de detected when using the same pair of 
cmeys. A large jump in tau values, as in figure 5-2, is 
another indication that two different pairs of arrays are 
detecting the same signal, but tne variance in values frem 
a single pair of arrays is quite food. The doppler values 
Will also vary and should de watched closely when tréckine 


a surface vessel. 
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oe 14:30 Bo .ec.e 147.4189 
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This data illustrates the estimated vosition, course and 


mead Of a possible target. Wher tne data is relatively 


Semeceant, as in the above display, it is probdeble thet 
the signals were 
memmeses were 159.¢, 


data would nrobably be due to extraneous noise. 





FIGURE 5-2 
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This data display preserts the peaz numbers, the array 
Maer eceived the signals, the freauency of the 
Signal, and peak data. The variances in the Tau and Topple 
values can give evidence as to tne validity of the track. 
mm@emvaTiance in the Tau values from -416.7 to 27.2 to 
meeeee CLC. means that the ellipses will vrobably corbine 


very well because the data is being collected from two 


different sets of arrays. 
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Baemaccuracy data display (figure 5-4) is a good 
miaication Ciemmurdem validity because the Chi-Square 
memoanility scores deéescrioe the consistency of the 
received data. The more data received about 4a certein 
mete, the better the exact location can be determired. 
The cumulative Chi-Square score is an excellent quick 
reference because the score iS constartly normalized to 
present a true indication of the probability. It does not 
Matter how mary scores are obtained because they are all 
averaged. The cumulative score will approach one (1.2) if 
Pee signals being received are from a target. 

The surface plots (figures 5-5 and 5-6) represents the 
Signals received in another fasnion. They are compiled by 
taking all of the data received by array peirs and then 
filtering the data througn a coherence filter that remcves 
@umestenidl deta bpelow the level set. Then the data 15 
Meeeolayed for tne region that the tracker has set for 
Surveillance. Both the coherence limit and the regional 
area are set by the overator in the attempt to locate a 
Pareet. 

The last displey in this section of the tutorial 15 
the covariance matrix display (figure 5-7) which 
Mmeustrates the complexity of the system as it presently 
Stands. It takes either a mathematician or a very 
experierced tracker to evaluate the matrices displayed. 
For this reason an algorithm is being developed by 2 Navy 


@emteractor to simplify this data. However, at this time, 
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ioees Stidd important to tne evaluation of the previous 
data, and is being displayed in this fashion until the new 


algorithm is completed. 
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Peeeexkamining a surface plot the overator mey be able to 
recognize a pattern of peaks that would establisn e 
target’s track. Care must be taken when viewing the surfare 


plots because the size of the area (range of latitude 


and longitude) can be varied, thus giving the appearance 


Of 2 treck when there might not be one. 
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REGION NUMBER 


POnERENGE woe MiT ~ 1250 


This surface plot shows a very probable track, indicated 


Meeeune arrow. Yecause the size of the plot is relatively 


small (€% wiles square} and the cohererce limit is 
memetively high ( 1.0), this is ovrobably a track of a 


target and should be further investigated. 
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This disvlay illustrates the covariance matrices which can 
de used to determine the accuracy of the estimated courses 
ena speeds. An experienced onerator could determine this by 
examining each 4 X 4 matrix. However, this is difficult anc 
time consuming. Efferts are being made to have this handled 


Mmeaetne computer. 
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VI. SCENARIO 


me «6CPFUSPOSE 

The scenario is an important pert of the learnine 
Peeoerience offered in this tutorial because it offers the 
Mmeemeetice Oppecrtunity to practice the skills that have been 
teught. Parameters can de inserted and the data displayed 
as it would actually be shown on the tactical syster and 
also advice could be given as to the auality of the data. 
Mees actual hands~or treining has many obdenefits over 
M@enventional methods. It reduces the anxiety of the usér 
memetinally confronted with a tactical rissio», gives hir 
mepeeepoints that can be eSxpanded in future lessons, 
refresher training at his work place, and a wide variety 
Oeeoptions to try on tactical data outside a mission. 

A great deal of anxiety and frustration gererally is 
experienced by the individual wnen he starts a new 
endeavor. Any reductior of this anxiety would be 
beneficial to the performance of the individual and thus 
improve his valu@ as an operator. With an embedded 
Mmeeeorial an individual can learn the workings of the 
system and the procedures of the task while »bvecorine 
familiar with the computer operatiors. This scenerio is 
designed to give the user several different locks at the 
kind of data and displays that he will be working with 


every day. A tutorial on the actual system would be far 
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better than the mock-up used in this study because the 
uSsine of ectual data would enable the user to see mrany 
more combinations cf parameters. This tutorial would he 
altered to analyze the parameters rmrore carefully to 
establish what comments would be appropriate for the data 
that is displayed. 

The scenario presently has only four sets of date and 
explanations hav2 been limited ty the data available and 
the size of the computer. Since the tactical system 
receives the data directly from its storage bank, both of 
these limitations are removed. The tutorial progrem would 
only have to receive tne data, analyze it. and make 
Pmeopriate comments. These comments, as in the sample 
Scenario, would describe to the user the arees to watch in 
meoer to get the best track, and also it would help in 
Making paremeter settings for optimum surveillence. These 
xey points would be ben2ficial to both the new user and as 
a refresher for the the experienced operator. 

Sirce the scenario is embedded in the actual tracking 
System, it is easy to have the operators run refresher 
meeinins on tactical data outside an actual rission, 
maeomout sending them out of the facility. This treinire 
could increase the capabilities of an exverienced oaverator 
because it would serve as a reminder of some option areas 
that might not normally be utilized either because they 
are unfamiliar or because they were not very effective on 


the deta that has teen voreviously tried. Since each new 
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Meee ise Urtque in its vroperties, an operator must de 
Mamet lexible in his attempt to distinguish a track of a 
Pereet from noise. 

Memecie® data 15 tactical but not vert of a currert 
operation during a se@nario, it is an excellent time for an 
experierced operator to try various combinations of 
perameters in the attempt to track a target more 
meeourately. An operator would rot have this optior e¢uring 
meeeavion due to the necessity of constant surveillance of 


the area. 


Peer ROGRAM SETUP 

the scenario program is written to allow the expansicn 
Mometni:s small sample scenario with little modificetior. 
The program taxes the invut of the user ard then disnlays 
mieedeta formatted in the manner that the user desires. As 
mse Gerornstration ovrogram is lirited in data évailadle, 
Only four possible sets of disvleys can be shown, each 
dependent on the parameters inserted by the user. The 
BeesiOoilities of disrlays range from excellent nrearereters 
to worst-case varameters with two fair sets cf data 
displays in the middle. In each set of displeys the user 
mame see peak data, lecation data, accuracy date, and 
surface plots of the region. The user is also gefiver the 
opportunity to display the parameters that ere presently 
being used and given an opportunity to elter any cr all of 
meme “ifure G-i shows the format of the parameters that 


Same De altered by the user to irvorove surveillarce of én 
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area, The oresent values shown in the figure are the 
Pararecters that the system initialized when the scenario 
was entered. These parameters will give the best-case set 
of displays and explanations, but they can be altered to 
demonstrate the effect of poor parameters or to highlight 
Meecitic varts or certain data disvlays. AS was mertiored 
earilier there are no set limits or firm parameters that 


Weebl give the best-case display of data in all situations. 


eee DISPLAY EXPLANATION 


3 


here are four sets of displays: 1! vest-case 
parameter setting, 2) data accumulated over too large an 
area, 2) data accumvlated with too low a ccherence limit, 
ard 4) worst-case data which was accumulated over too 
large an area at too low a coherence limit. These disolays 
will ve grouped by display category to demonstrate the 
Meats in each tyve of disvlay for certain chcices of 
parameters. 
ioe FOSitional=-Leata 

The vositional data is probably the best source of 
mae ormation that the operator can obtain abdout a possible 
femeet  DEecCduse it provides a smaller area to search and a 
good mocaicatior of the Preval ty Of a terget. 
PUrthermore it is the easiest set of data ta understand 
because it i185 given ir terms that most veople can easily 
2resp, rositior with a course and ae speed. Some of ths 
Other displays present tau lines, dopoler, and cumulative 


Chi-Scuere values. The positional data displays (figures 





E-2 to €-5) present the peak numbers, calculated position, 
course, ard speed of a suspected target. A key point to 
observe is the variance in the course or speed because 
Pos would show that the track is not a firm set of data 
and that it could be noise. 

Ag figure 6-2 illustrates, the courses and speeds 
are quite steady and well within reasons; the speeds are 
not excessive and the courses are roughly in the same 
Seepecton. In contrast, figure 5-5 hes courses that vary 
59 degrees, from 9005.5 to 934.€, and speeds that jump from 
Mees to 4.69 causing doubt that this is ean actual track 
because vessels do not generally voroceed in this fashion. 
These were two extremes, excellert data and worst-case 
data; however, it is difficult to determine the validity 
Memmeeme track for most data. Figures 6-3 and 6-4 show some 
more common data in which the courses and sneeds vary 
meamemmat Dut they are gradual changes ratner than adrunpt 


changes. 
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Contirue, Return 


To change ary of the present values of the parereters to 
new values, use the following format: 


PARAMBETEP-NUMBEFR, NEW-VALUE n 


Momeexdadmple ==> 4,1.2n changes the coherence limit to 1.2 





MUNU CP PARAMTTTRS 

LIMIT PARAMFTEPR PRESENT VALUP NFU VALUE 

1-25 1. PRGION 5 

7 2. RUN E 

1-17 2. TRACK 9 

@.1-2.2 4, COHFRENCE ioe 
39 .33-523. 32 Sel UD male hn) 35.52 
2G .APA-5A BA 6. LATITUDE( low) ZE LAD 
12%.30-143.22 7, LONGITUDE (high) 124.52 
122 .00-140.2@2 &, LONCGITUDE(low) 125.202 
FIGURE 6-1 
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RUN NUMBER 6 


Peak Position Coordinates 


Number Latitude 


g 59.590¢ 
5427 62 4a 
SOS 59.4682 
5449 49.4212 
5542 OF ODES 
2453 59.598 
e421 o9.4021 
5479 o9. 4219 
S429 29.4027 


REGION NUMBER 6 TRACK NUMBER 


Longitude Course 
147 .E@O@ Gad 
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147.4652 154.7 
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147.4632 REG. 5 
147 .4297 ee eee! 
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RUN NUMBER 6 REGION NUMBER €E TRACK NUMPER 9 


Peak Position Coordinates Courses and Speeds 


Number Latitude Longitude Course Speed 


596.5009 142.5902 
38 64731 142.4876 
68.4422 142.4791 
58.4431 142.4762 
58 .44¢1 142 .4°75¢ 
68.4324 142.4775 
38@.424€ 142 .4€89 
58.4268 142.4668 


08.4221 bee el ore 


meer: A GOOD TRACK, BUT THE S 3 REC ION BEING 
COVERED IS TOO LAPGE. 
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Latitude 


35.5802 
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TROUCE THE COURSES ARE FAIRLY STEADY, 


NUMBER 4 


d Speeds 


Sveed 


Titer EDS ARE 


FLUCTUATING GREATLY DUE TO THE LOW COEFRENCE LIMIT. 


FIGURE 6-4 


LOW COHERENCE POSITION-DATA 


is 
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Peak Position Coordinates Courses and Speeds 
Number Latitude Longitude Course Sreea 

g 56.5202 142.5822 2.2 G.22 
&56@ 36.4784 143.€524 026.5 4.58 
B52 SE. 5348 (aS. 7 oe 9354.5 eu 
e571 SO. ee 142.4936 025.9 E.@2 
3564 56.6132 142.4467 Oilke 2 7.63 
BD 1 Be.col7 143.4052 ZO Ss). 3 4,69 
2554 36 .ESOE Bacio ek 014.7 Snes 
2584 20.0556 143.7485 Fret f.25 
5547 Semc7ce aS .OCOS Dee eee 


meee TRACK AS SFEN PY THE COURSE AND SPESD CYANCES, PROB- 


ABLY DUE TO THE LARCE AREA AND THE LOW CORERENCE LEVEL. 
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2. Peak-Data 

The peak data displays (figures 6-6 to €-G) 
exhibit some rather confusing data in tnet most neovle 
mows little about tau lines and fewer people have ary 
concept of numbers associated with dovpler. The STM/RM 
numbers are a numerical description of the array ard the 
direction in which the beam is pointing when it received 
the signal. A good track will have alternatirg STM/2M 
numbers, depicting several arrays vicking up the date and 
thus the triangulation will be more precise. Another place 
to odvserve the alternating of arrays is the tau values. 
Eowever care must be taken not to confuse the varying of 
the numbers with the alternating of arrays. [f the track 
is weak or the data is from noise it could apvoear to be 
alterrating wher it is actually just varying a ereat deal. 
Mmm@emetau values obdtained froma single array should not 
vary a great deal between peaks. Wher tracking a surface 
vessel the dovpler values will be very steady and the tau 
values will fluctuate a little more than for a submarine. 

Wigure 6-6 illustrates a pattern of coenstantly 
Switching arrey pairs in the reception of data about the 
track, while any daté received by a single set of arrays 
does not vary a great deal. For example the switching of 
meeevalues from -41€.7 to 27.3 to -412.& to 19.2 shows 
that two different sets of arrays are picking up the 
Signal, while -416.7, -412.8, -420.7 of a singl® array 


Pair show that the values are fairly steady. In contrast 


te 





meeure 6-9 illustrates that signals are only being 
Received by one set of arrays, that no switching occurs, 
and that while in a single array peir the tau values vary 
Spere extensively, 62.1 to 25.7 in a short period. Again 
these are somewhat extreme cases and are easy to interpret 
mompered to the data displayed in figures 6-7 and 6-8, 
where there is some switching and some fairly steady 
readings. 
5S. AccuracveData 

The accuracy data displavs (figures 6-19 to 6-13) 
Pilustrate some data that is good for determination of the 
quality cof a track since it provides the operator with the 
Barsdquere probability of a target being within a specific 
revion, generally an ellipse. The individual scores are 
important to see that there are no drastic jumps that 
would adversely affect the cumulative score. For instance, 
muearee single individual score could ereatly increase the 
cumulative score and present a false impression of a good 
track. The important scores to watch are the cumulative 
totals which should appreach one if it is a definite track 
of a terget. 

Figure 6-12 displays the pattern of a gcod 
Chi-Square accumulation ir that the individual scores ere 
constantly getting better and the cumulative score is 
approaching one. The individual scores are getting higher 
end higher because the prorvability ellipses are combining 


and thus reducing the size of the vrobable contect area, 
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fear] 4-17. In the worst-case accuracy data display 
(figure 6-13), the individual scores dn not eppreciabdly 
increase because all the data is being received at one 
array pair and the ellivses are combinirg in such a manner 


that the area of probable contact does not significantly 


shrink. 
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FUN NUMBER 3S REGION NUMPER 4 FRAG eNO MEER 7 


Peak aa station— —Fitmo Cation— SS ores Dateaa— 
Number STM/3™ Freq Saal Freq TAU DOPPLER 
2 Gy 43570 F 48.72 g.0 2278 
5542 Pocsool 48.79 1346024 48.79 19.4 S231 
g478 15272041 48&.7¢ 1246¢@51 428.72 2 3 IOZ EY 
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2642 ifeoevo. 48.72 1746039 48.74 ae A292 
scl Poecii4 48.72 2411824 48.72 ~442.4 1Z79 
Serer PecoveS 486.72 1246042 4&.7¢ P14 O569 


NOT MUCH ALTERNATING OF ARRAY PAIRS, 


GOOD A TRACK. 


FIGURE 


Gea 


LARGE AREA PEAK-DATA 


Ee 


PRO@R SLY NCr 








Peak whee > Fetion= me Se con = Sra veda vate ——— 
Number STM/BM Freq SME Freq Ay [TOPPLER 
d ®@ 48.72 @ 48,79 3.2 JDI2 
Bocs 1341?@21 48.72 1472365 48.72 Let 2EO1 
5342 1874261 48.70 243701 48.77 sae a ~.@391 
3394 1341236 48.723 1472341 48.72 LS e6 G48 
Soc? 1834275 48.70 2437209 48.72 ~Z28 4 —eCoee 
5519 1241228 48.7¢@ 1472656 48.79 28.4 GFEG2 
3364 1341025 48.72 1472551 42.579 Ooe7 2491 
eoie 1834268 4&.77 2437005 42.72 =o21..1 = 0679 
2543 1541029 48.7¢ 1472368 48.7% eee 0529 


RUN NUMBER 1 


REGION NUMBER 3 


TRACK NUMBPR 4 


PAIRLY GOOD SWITCHING OF ARRAYS BUT WITHIN AN ARPAY PAIR 


THERE 


IS TOO MUCH VARIANCE DUE TO 


HetOweCOnmneENCh LIMITS < 





FIGURE 6-8 


LOW COHERENCE PEAY~—DATA 
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Peak 


Number 


CN 
Cn 
N 
SQ 


CN 
cn 
CN 
nd 


NC SW 


IN TYE TAU VALUES. 


RUN NUMBER 5 


REGION NUMBER 5 


=—HEF Stetion- 


cM 7 ee 


2 
2411031 


241202 


i 


2411041 
2411905€ 
2411056 
2411926 
2411¢351 


2411055 


CHING OF 


Freq 


—-P?D Station- 


SE 


3 
1441224 
1442267 
1441028 
1441021 
1441425 
1441022 
1441024 


1441018 


PUR hea eme en te SU 


Gee Ola 2 

ae Com ala bas — = 

freq TAU DOPPILAR 
48.79 ZO OY) 
42.70 428.6 2242 
48.72 Gaal 294 
AS 76 cere 0362 
4£.7Q enh G22°9 
42.76 Coe 2328 
48.72 49.6 9195 
42.72 41.2 C293 
48.70 See A264 


A LOT OF VARIANCE 


A VERY POOR TRACK. 


Piece e—o 


Wenhot CASH PRAK=DATA 


E4 








RUN NUMBER 6 REGION NUMBER 6 TRACK NUMBER 9 


later Time peak PRO 0 ——Coeeocuare Scores ;= 
25-Fed-8¢ Nurber score Stagewise Cn ome 
14:58:26 4 0.2 ZC .22O9 C .ELee 
14:58:02 2427 =a Ore Lr Oo Cl 
15:94:23 5933 -4.89 Deo use Cie ( 
moe 143356 5449 Sore oo Z2.441¢ OC. cet 
Berea sc 5 5542 -4.66 1.4396 C .2468 
15:48:44 34523 ee 1 2.3796 6. esr 
9349:51 J421 “4.31 1.8945 G .8592 
meres Fé 3479 ee 2.0938 0.9297 
| 2) SS YaHBES 3429 -4.,89 BeceIs 2.9432 


OUTSTANDING CUMULATIVE SCORE BY TFE FINAL TIME PEPIOD, 


Bevery GOOD TRACK. 





FIGURE 6-18 


EXCELLENT ACCURACY-DATA 


BS 





RUN NUMBER ¢ REGION NUMBER 1 SNC RN UME ER 4 


water Time Peak Pane) o =O orate S6ORes -— 
£o-"ed-82 Number Sehele Stagewise Curulative 
Me. 52 3:56 g 0.22 0.2220 Z .2ECO 
meeac:S€ 2542 -1.49 Olas 2.1425 
me255:37 SA47E ele 7 Cea sees) alr 
Meech: 1 5548 alee 9.5382 2.5829 
16:59:19 S557 = 95 0.6547 G .4E92 
Hr20o392 3461 =A S ie) Se7 eo 
me go 356 ZE42 alerts Cee 1 Ceee cl 
17:09:42 See meee A.,EB29 2.E928 
#7211:48 5555 oreo 2.7928 2.7522 


Bee CUMULATIVE SCORE IS FAIR BUT NONE OF TSE INDIVIDUAL 


BOCRES IS VERY HIGH. 





FIGURE 6-11 


PAC ean ea A COURAGY—DA TA 


8E 





RUN NUMBER 2 REGION NUMBER 3 DINO wee UME se 


Water Tire Peak Hee 0 --CHI Sauare Scores-- 
gore) -ke Number Deore Stagzgewise Curulative 
ee 12357 2 2.22 2.2920 2.2982 
meee: 27 Owias =C io ¢.2184 ?.2124 
Pe.15:25 5o42 ree ®.4227 Paes 
96:14:32 3394 = ES aac + 6.4743 
76:14:57 See alee 0 Zea ?.6411 
peric:s oeld =A 0% 0.E€428 Ose ens 
96:17:29 3364 eno Oacele? Creole: 
76:18:54 5218 ue 6.9442 Zameee 
9e320:21 Sa4E meee 2.9218 Carre 


eee CUMULATIVE VALUES, 


LOW COHERENCE LIMITS. 


LOW COHERENCE ACCURACY-—DATA 


FIGURE 6-12 


Si 


BUT TOW SIN DIVIDUAL VALUES DUE TO 








RUN NUMBER € PEGION NUMBER 4 TRACK NUMBER 7 


Water Time Peak Prob Serle odud romoeores—— 
poe 60-37 Number score Stagewise Curulative 
21326204 4 0.82 0.2L v .S2CP 
21:76:24 556 -2 .92 Baie) 8.1221 
21:37:09 DIOc ale 8.2341 Bah ees 
mec 252 Sere L lees @.¢417 Geeeee 
Bee 2328 “564 =o Douce 0.4172 
pee 59341 Soe Pens 3.3E14 0.4228 
21:40:¢e2 c254 me Ot G 40827 G 4458 
21:47:58 2584 eee Creed | GL 4627 
21:41:44 3547 Sane! Oacok 7 0.4528 


eee bOY CUMULATIVE SCORE. A VERY POOR TRACK. 





FIGURE 6s13 


WCRST CASE ACCURACY-DATA 


Se 





4. Surface=-Plots 


acme suracee DlLOLS = can reveel a great deal avout 
the actual situation in any area without picking any 
mpeeial track to correlate on because it displays the 
entire rerge of frequency values in that area. When the 
area is of proper size for the type of surveillance that 
is being conductec and the coherence limit is set high 
enough to reduce roise yet low enough to tetect the 
required signal, then a surface plot cen assist the 
Meerator in distinguishing a valid track. 

Figure 6-14 illustrates the type of display that 
mamerarnelp the operator to concentrate his efforts in the 
area on the left side of the vlot. Care must ve taken @s 
momune Ssiz@ of the aréa and the level of tne coherence 
limit because they could cause a surface slot to present 
the overator with a false impression of the actual 


mmeuetion, as figure €-16 illustrates. 


tee SUMMARY 

Meter Scenario séction of the embedded tutorial is 
important to the development of qualified operators 
because it gives them the ovportunity to refine their 
Skills on tactical data and to experiment with different 
combinations of eparameters. This is especially irvortant 
in the early stages of developmert since there are no 
concrete guidelines for obtaining tne best picture of the 


Surveillance area. 


o¢ 





meee =—> Menu, Locetion, Peaxs, Accuracy, Surface, Return 


REGION NUMBER 6 


COHERENCE LIMIT 1.3 


BeoreoOLID PATTERN DOWN TEE LEST SID OF THY REGION. 





EXCELLENT SURFACE-PLOT 
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meme =—> Menu, Location, Peaks, Accuracy, Surface, Peturn 


REGION NUMBER 1 


SOHERENCE LIMIT 1. 


NC PATTERN IN THIS LARGE AREA. 





MCU a Oat 


Pre GherAR eA SUR VACHE=PLOT 


a 





mepe ==> Menu, Location, Peaks, Accuracy, Surface, 


REGION NUMBER 


SGnHeRENCE LIMIT 0. 


meee UOE NOISE DUE TO THE LOW COHERENCE LIMITS. 


HiCURG 6-16 


bOy GORSRENCE SUR PACE<PLCT 
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Return 








mape =—> Menu, Location, Peaks, Accuracy, Surface, Return 


REGION NUMBER 4 


COHERENCE LIMIT 0. 


meet OF NCIS® DUE TO TOC LOW CORTRENCE LIMITS AND 
TOO LARGE AN AREA TO COVER ADEQUATELY. 





FIGURE, 6-17 


WOPST CASE SURFTACE-PLOT 





Vi CONCLUS TON 


The data obtained tends to indicate that computer 
assisted instruction is superior to conventional training 
when the trainee will eventually be working on a computer 
Or console. This can be attributed to certain individuals 
being more inclined toward this type of work and thus the 
use of a computer based instruction seems auite natural. 
The failures in the use of computer Ddased instruction tend 
to be in fields that require more manual dexterity, i.e. 
machinist mate and boiler technician, or where the trainee 
has a much lower initial aptitude. If the trainees has poor 
meadanes skills, this type of instruction will highlight 
all of his weaxnesses, whereas some individuals can 
acquire a great deal of knowledge by listening to an 
Mmestructor. 

The disadvantage of computer odased instruction in 
almost every case is the cost of the intial system 
compared to the cost of a teacher for tne sare number of 
students. An embedded tutorial reduces the cost since the 
computer is already paid fcr: by Vis operational 
requirement. The only expense is possibly of an additional 
meomsole ard the cost of the instructional code. The extra 
console coule be used as a spare for the operational 
system and the instructional code snould not be too much 
more expensive than the printing of a textbook. 


Fy the demonstration of the instuction presented in 
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this paper, it is hoped that future research can be done 
mae the area of computer based instruction fer the 
mempropriate fields. The flexibility of the instructior, 
the ease of manipulation, and the variety of possible 
displays all point to the vast capabilities of a color 


erapnics tutorial. 


eee RECOMMENDATIONS 

Further research should be conducted into the use of 
Bemourver assisted instruction for certain types of jobs, 
i.e. ASW surveilarnce, secretarial positions, clerical 
positions, communications personnel. The natural abilities 
@epersonnel eéntering these fields makes the use of 
computers seem almost natural, since they generally have 
both a higher [.9. and clerical aptitude. 

This tutorial should be designed for the Ramtek 9402 
Since that is tne equipment to be used operationally. The 
school is presently installing a Ramtek $9420 so work could 
menue On this project by transferring the code to the 
new syster with imoroved performance because of the 
superior capabilities of the new console. The amount of 
code required by many of the displays could be reduced 
because the Ramtek 940@ can perform some functicns easily 
which are quite complex on the existing system. 

The use of color can enhance the pattern recogrition 
Capabilities of humars s0a further project would be to 
display the surface plot data in different SOLOrs 


corresponding to signal amplitude. 


2 





Poach eoraject would be to write an algorithm thet 
would take actual data from the operational system and 
transform it into displays that could be used for the 
meenario s@ction of the tutorial. This would give the 
operator an almost limitless number of new examples on 


meeen to practice. 
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[ FEPETE RE EAE HE ART HEME HE EAE AE REE OE NE RE OE OK ae NE RES. oe aR Ne AS a 2 fe he a OE HS a a BE ae oe age ae a OR EE AE a BE RES a aK 
xe xe 
* This is the main section of code that controls the other * 
* separately compiled sections of code. It establishes the * 
* type of tutorial that the user wishes to see and then it * 
* forks to that section of code. = 
x * 
2 He aE a ae a a Se hee ae aK AE a A ah ae BENE A BK AE OK BKK OK NEE NE OK KC REO EE NEE Eafe aE aE ae a a ae Be ae 2 a aK abe ae ak a oe / 
char select; /* global variables */ 

main() f 


moat X,Y¥,Z; 

emar cc,cd,ce,*st; 

mot i> 

ramtek(); /*initializes the Ramtek system */ 
writon(1); 

colortable(); /* establishes a new color table */ 
colort(1@); 

pici(); /* allows the first display to remain */ 
cc= Z ;3 
while (cc!=’s’) {f{ /* while #1 */ 

cc=retchar();3 } *end while #1 */ 
while (1) { /* while #2 */ 

colort(1@); 

pic99(); /* introduction display */ 

cc= } 
2) { /* while #3 */ 

ec=retchar(); 
switch(cc) {f{ /* switch #1 */ 
case “a’: /* basic tutorial */ 

Bellect= a ; 


case “b’: /* data display tutorial */ 
select= "bd ; 


Base “c’: /* senario tutoriel */ 


case “q’: /* Quit */ 
(); 
pic9S();  /* introduction display */ 
} 


break; 
default: 
cc=°27"; 
fey end switch #1 */ 
} yewend while #5 */ 
eolor(15); 
block(14.0,2.9,92.9,19.@); 
strtxy(3¢@.0,8.0); 
color(2); ‘ 
strout( Do you want any instructions? ( y /n ) };3 
cc=retchar(); 





if (cc==‘y’ { 
pic89(); Pounce tion disdlay ~/ 
cc=retchar(); 
white (cc!="c ) 
ec=retchar(); 


switch (select) { /* switch #2 */ 
case ‘a’: /* pasic tutorial */ 
colort(1); 
asw(); /* interrupt display */ 
sleep(4);3 
if((i=fork())==2) 
execl( segi , segl ,@)3 
Sport) > 


wait(&i); 
breaks 
case “b’: /* data display */ 

molort (2) 3 

asw()3 /* interrupt display */ 

sleep(4); 

See ge) { 
execl( seg3 , segz ,2)3 
exit(); 


} 

wait(Si); 

break; 

case “c's: /* senario tutorial */ 

eolort(3); 

asw(); /* interrupt display */ 

sleep(4); 

if((i1=fork())==0) . { . 
execl( Senerio , Senerio ,@); 
exit()3 


wait(Si)3 
break; 
default: | 7 
printf ( ERROR’); 
} 0 6/* end switch #2 */ 
} /* end while #2 */ 
} /* end main */ 


colortable() {f{ /* Establishes a new color tabdle */ 
oon t ale | $ 


af@] = triple(?@,@,@);3 /*® slack */ 

afi] = triple(1£,2,2)3 J jive = / 

af2] = triple(2, iP /* green */ 

al3] = triple(%,@,15); s* red */ 

a[4] = triple(15,5,2)3 lene ple / 
ete = triple(2,9,6); Jom CCTs / 

al6) = triple(¢,1@,@); /* bright green */ 
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acd Seni he (26,12); * peach */ 

a 8 = triple(6,19,2);3 /* pail green */ 
af9] = triple(18,2,5); /* purple */ 
a{1@] = triple (13,5,2)3 /* medium blue */ 
mel = triple(s5,2,13)3 /* hot pink */ 
af{l2] = triple (2,13,5); /* light green */ 
af13] = triple(15,0,15); /* pink */ 
afi4] = triple(19,4,4)3 /* greyish blue */ 
a{i5) = triple(15,15,15); /* white */ 

clrtbl(i@,a); 

return; 

pston() f r 

/* Displays the question of Do you really want 
to quit? and then waits for a reply af, 
char *st,*sp,stop; 


= ’ 
color(11i); 
block(@.0,0.9,100.0,102.@8);3 
color(5);3 
strtxy(45.0,68.9); 

st= DO You" ’ 

strout(st); strout(sp); 

me REALLY ; 
merout (st); 

strout(sp); 

st= WANT TO™ 

strout(st); Presi (en) 

st= QUIT? ; 
strout(st); 

mee ty / n) 
strout(st); 
Stop=retchar(); 
MF (stop=="y’) { 

color(@); 

dlock(0.2,9.3,100.3,139.2); 

exit(); /* Exits program if user want to quit */ 


return; 


picl() { /* Displays ASW in large block letters */ 
emar *Sstl ,*st2; 

Brolor( S); 
block(@.2,0@.9,120.%,100.@); 
color(12); 
meock(15.0,50.0,29.2,68.@);3 
block(32.0,50.0,35 .@,68.@); 
mge e(15.0,58.0,55.0,63.0)3 
moc kK(15.0,68.0,21.0,69.2); 
block(16.0,69.0,354.2,72.G);3 
iock(17.9,72.2,33.0,71.3)3 


a 


block(18.2,70.%,32.2,72.2);3 
moe ©(19.0,71.9,51.9,735.9); 
block(29.2,68.0,54.2 ,69.0)3 
block(40.2,5@.%,60.2,55.@8);3 
plock(55.3,53.%,629.%,65.2);3 
block(40.2,58.2,62.2 ,63.98);3 
block (48.0,&8.2@,45.%,73.@);3 
block (42.8,€8.8,62.%,73.3); 
block (65.2,59.%,70.€,73.@)3 
block(82.2,50.0,85.%,73.@);3 
block(74.29,53.%,7€.08,6%3.2);3 
block(73.9,52.0,74.2,59.@)$ 
mock (72.0,51.%,76.%,58.9)3 
mmock(71.0,59.9,72.0,57.8)3 
miock(72.0,50.8,71.2,56.9)} 
block(76.0,52.@,77.@,59.9);3 
block(77.9,51.9,78.%,58.9)} 
block (78.%8,5%.%,79 .2,57.@G);3 
block(79.8,5%.0,80.%,56.@); 
dblwid (1); 

sti= “EMBEDDED ; 

e= TUTORIAL ; 
strtxy(48.2,49.2); 

Eramout (sti); 

strout(st2);3 

dblwid(@); 

mrt xy(70.9,5.9)3 
color(15); 

mmout( type s to start ); 


return; 

pic99() {  /* Introduction Display */ 
color(4)3 

block(9.9,0.8,10%3.2,199.3); 

color(@); 

dblwid(1); 

strtxy(29.8,95.0); 7 
strout ( EMBEDDED TUTORIAL INTRODUCTION J; 
dblwid(@); 

menexy(15.0,87.8)} 

strout ( This MuOnid Waisecdestened fo meet the needs of an 


assortment of )3 

Strout( users, from PacwnOvece shou thevexperienced tracker. 
‘There are three )} 

strout(” Bc2tesories that can be reviewed: ye; 

strout (_ )3 

strout( a) The basic Pic laomonericusys tem are discussed 

and mary of the ); 

strout(” prodlems associated with the system's environment 
. are dealt with )5 ‘ 

strout( Paedeteail in this section.  ); 

strout( b) The types of data that will be displayed during 
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actual system ); 


strout(. operation are hae along with explanations 
of the data and : 
strout(_ key areas to nen for while tracking. 33 


strout( c) A set of practice senarios are presented based 
2 on the user inputted )}3 
er out ( parameters. These senarios allow the user to 
see actual data being ); 


strout(” presented and the See Uomo n ey dar OU S| pahedllec ter 
F Speinasemmes points) ); . 
errout ( are also highlighted in this section. ); 


omtxy(15.0,8.0); 

strout(— type in the letter of the desired category (a,b,c) 
op (el) 3@ Weil, ie 

return; 


} 


pic89() 1 /* Instruction Display */ 
color(1); 
block(8.9,0.0,180.0,103.3); 
color(4); 
block(9.0,36.0,100.%9,98.8); 
strtxry(12.8,97.98);3 
color(2); 
strout( Menu of possible areas to proceed to next is 
presented nere. ); 
strtxy(2@.2,78.2)}3 
Switch(select) { 
case “av: 
strout ( Boeweudiderdnsmmill be dilustrated in this 
area. They will ); 
strout( depict a view of the overall system, environ- 
mental problems, ); 
strout( and detailed displays of questionable areas. 
Review this area ); . 
strout( before reading the explanation below. );3 
break; 
case “b’s. 
err ou t ( This section will illustrate some typical 
data that would )}3 
strout( show up as the tracker is utilizing the 
operational system. ); 
strout( The data will represent some relatively good 
tracks in order ); ‘ 
strout( to demonstrate how the data should appear. °)}; 
break; 
case “c’: 
Serout( The data ienowna eC ei nets See ll on 15 
dependent upon the ); 
strout( user inputs of parameters. As the user elters 
the parameters ); 
strout(' on the menu display, the computer alters the 
type of data )} z 
strout( that will be exhibited. ); 
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preak; 


} 
strtxy(16.9,29.@); 
switch (select) { 
case “a” 
strout(” An explanation of the above area will de 
displayed in this ); 
memout section. Gererally it -will be a simplified 
review of the basic ); 
strout( concept with a few new ideas. If the new ideas 
are not fully )3 
strout( understood, then they will probably be listed 
in the menu and )3 : 
strout( can be pursued further. ); 


break; 
case “b’: 
strout( An explanation of the above data and some key 
oints ); . 
strout( to watch for will be described in this section. );3 
break; 
case “c’: 


strout( A very brief statement about the data and its 
reasons for )}3 

strout( being good or bad will be described in this 
section. );3 

break; 


emey(02.0,€.0); 
strout( type c to continue )}; 
return; 


asw() f /* Interrupt Display */ 
float Xx; 
mat 1s 
1=6; 
for (x=0.23x<41.03x=x+5.3) f 
{=1+1; 
color(i); 
ee 8 108. Om); 


ety IO See); 
eelor(i) J 
strout(— “AS W )3 
strout( Embedded ); 
strout( Tutorial ); 
return; 


OZ 


/*¥RHRERRHHREEHHHHHRHHHRHHHR RH RRR HH SH HH RH RR HHH HR HHH ER 
# This program cemonstrates some of the capabilities of # 
mead computer to instruct individuals in besic skills. # 
# It is designed to be self-paced and totally contains # 
# all the material required ( pictures, text, formulas, # 
# and instructions). Once the user is logged on there is # 
# ro need for an instructor to monitor the individual. # 
BP Due to the size of the program, it is broken up into = 
# five modules that are compiléd separately and then are # 
= forked together when required. There are three parts # 
# to the tutorial and then the senario section. This is # 
fac n®= first section of the tutorial. # 
HHEHHHHHHHRHEHHRHRHHER RHR KRHA RRR EH HHHR RHEE RRR HR RRE RBBB / 


main() f{ 

meroet X,Y¥,Z;3 

mer cc ,.cd,ce,*st; 

mec («1 

ramtek()3 /*initializes the Ramtek system */ 
writon(1); 

colortable(); /* establishes a new color table */ 
colort(1@)3 


me 1 ( ); /* allows the first display to remain */ 
sleep(5); /* on the screen 5 seconds befcre 7, 
pic2(); /* the second display is presented */ 
cc= Zz } 
mmene (cc=="°z ) f{ /* while #1 */ 
cc=retchar(); 
switch(ce) f /* switch #1 */ 
case ‘Cc’: /* Continue */ 
Bice ( ); 
ed="27"3 
mile (cd=— 2°) f{ /* while #2 */ 
cd=retchar()}3 
switch(ca) f oO eueiec enc 6/7, 
case “c's /* Continue */ 
break; 
case ‘“r’s /* Return */ 
pstop(); 
pucoi@inmey = —Glsulays pics if quit isn t desired */ 
CG zy 
break 
default 


break; 

case “f°: /* Extra display if “f’ is accidently typed*/ 
pic2a()3 
cc="2"3 


EUS 





/* Return */ 


) 
—/ seasmlavys pic S if quit 
? 


aerault: 
ec=°2°; 
} /* end switch #1 */ 

} /* end while #1 */ 


isn’t desired */ 


pic4(); 
ae= 2} 
while (cc==’2’) { /* while #3 */ 
cc=retchar(); 
ewetcnicc) f{ /* swithch #3 */ 
case “n’: /* Noise display */ 
mic cl ( ) 5 
ee= Zz; 
break; 
case “d’ /* Distance display */ 
picz2(); 
ea="°27°5 
while (cd==’z") {f{ /* while #4 */ 
cd=retchar(); 
switch(cd) { /* switch #4 */ 
case “n’: /* Noise display */ 
mace); 
ec="2 "3 /* steps out of while #4 */ 
breax; 
case “t’ Jee ime disalay “/ 
Digeoo ) 5 
c= az; /* steps out of while #4 */ 
break; 
case “w" /* Water temperature display */ 
picz4(); 
Cc= 2 3 /* steps out of while #4 */ 
break; 
case “1” /* Tau line display */ 
miuceei )5 
ce="2°; 
while (ce==’z’") f /* while #5 */ 
ce=retchar(); 
SWitcn(ce) f{ J=TGwi ton ws */ 
case “n’: /* Noise display */ 
pee) 
cco="2°3; /* steps out of while #4 */ 
preak; 
eacsert /* Time display */ 
Duecsot 3 
cc=°2°3; /*® steps out of while #4 */ 
break; 
case “d’: /* Distance disnlay */ 
aces (is 
cc="2°3; /* steps out of while #4 */ 
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break; 

case “w /* Water temperature display */ 
picz4(); 
cc=’z°; /* steps out of while #4 */ 
break; 

case “p°: /* Tau line problems */ 
pic3211(); 
cc="7°; /* stens out of while #4 */ 
breek; 

case “c’: /* Continue */ 
pich(); /* steps out of while #2 */ 
break; 

case ‘rs: /* Return */ 
pston(); 
Beso ne /* disobays pic Sei if quit */ 
€o="7 ; /* isn’t desired a / 
bpreek; 

default: 
ce="2 7°; 


} /* end switch #& */ 
} /* end while #5 */ 


: V-EOon nue 7 / 
; /* steos out of while #3 */ 


Veerecurn = / 
Padenoediyic Dicwee if Quit ion t desired=/ 
default: 
ed=— Zs 
} /*® end switch #4 */ 
} /* end while #4 */ 
Vewine Gisplay ~/ 


aed 
/* Water temperature disnlay */ 


yrea 
/* Continue */ 


/* Return */ 


pic4 pomcusolays pic 4 3f euit isn t desired =/ 


default: 


C= 7 | 


} Veverd switch 435 */ 
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/* end while #3 */ 
if((i=fork())==@) {, /* If stmt #1 */ 
execl( see2 , seg2 ,2); j= fOr assetoeserment 2 “/ 
exit(); 
} /* end If stmt #1 */ 
wait(&i)s; 
} pewend of main */ 


colortable() f{ /* Establishes e new color table */ 
int af16]; 


a(@] = trivle(@,9,@);} /* black */ 
aft] = triple(1£,8,@); /* blue */ 
afl2|) = triple(¢@,15,9);3 /* green */ 
mo] = triple(¢,0,15); /* ped */ 
af4] = triple(15,5,@); Tvent eb lye = / 
af5] = triple(2,9,6); /* maroon */ 
ale! = trivle(¢,10,0); /* bright green */ 
a{7] = triple(2,6,1@);} /* peach */ 
afal = triple(€,19,2); * pail green */ 
af{9] = triple(1¢, 2G) /*® purple */ 
afi@] = triple Geen: /* medium blue */ 
ee e=—etrinie(s,2,15); /* hot pink */ 
af{i2] = triple (2,12,5); /* light green */ 
moye— tricle(15,0,15); /* pick */ 
meer = trinle(19,4,4); /* greyish blue */ 
afiS] = triple(15,1£,15); /* white */ 

eintbdl(i¢.,a); 

returns 

pstop() f{ 


/* Displays the question of do you really wart 
to quit? and then sets the value cf STOP */ 
char ee SP! 
$p= 
color (11) 
block(@.2,@.9,192.0,1282.2); 
eeror(5); 
strtxy(45. B82. 2); 
st= "DO YOU } 
strout(st); strout(so)3 
st= REALLY ; 
morout (st); 
strout(sp)3_ 
St= "WANT TO ; 
strout(st); oe ne?) 
st= RETURN TO 
strout(sp); 
strout( TEE MAIN); 


pest cout(sp)s 
strout(’ PROGRAM? )3 
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merout(st); 
st= (y /n) 3 
merout(st); 
STOP=retchar(); 
if (STOP=="’y") f{ 


pmOr=“Y°; 
color(@); 


dblock(@.@,2@.0,100.8,100.2) ; 
} 


returns 

pici() {! /* Displays ASW in large block letters */ 
mar ~Stl,*st2; 

eolor(3); 


mpock(®.0,0.0,102.9,190. 


color(12)3 

block(15.@,52.@,2¢ 
block(32@.0,58.4,35 
myoc(15.9,528.3,35 
mmock(15.0,68.¢0,21 
block(16.0,69.@,34 


mpoek(17.09,73.9,36.- 


mpock(1&.¢0,70.€0,3z 


mpgiek(19.0,71.8,31. 
block(29.23,68.9,354. 


block(4¢.0,52.0,62 
block(S&£.8,50.2,6@ 
block(42.2,58.3,64@ 
block(4@.0,58.@,45 
block(42.0,63.9,62 
block(€5.9,58.3,72 


block(8@.2@,5@.2,85. 


mock(74.0,53.9,76 


peock(75.9,52.8,74. 


block(72.@,51.9,73 
block(71.9,50.%,72 


.€,68. 
7,68. 
2,63. 
2,69. 
2,72, 
B,71. 
2,72. 
B,73. 
2,69. 
7,55, 
2,63, 
2,63. 
2,73. 
2,73. 
2,73. 
@.73. 
2,62. 
2,59. 
2,5 


oe Cc 


QQ 


mmoc(73.¢€,58.0,71.8,56. 
mmock( 76.0,52.0,77.€,59. 
meock(77.0,51.0,78.0,58. 
block(78.%,59.8,79.0,57. 
dDlock(79.2,50.0,80.@,56. 
dblwid(1)3 
St1="PMB3EDDED’ ; 

sSee= TUTORIAL ; 
strtxy(42@.2,40.08);3 
Brrout(st1); 
Berout(st2); 

dblwid(@); 
Return; 
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mre2{) f /* This subroutine disvlays the instructions 
needed to use the tutorial */ 

char “st; 

int stime; 

color(1)? 

dblock(@.@,0.0,192.9,100.@); 

color(2); 

dblwid(i); 

strtxy(25.@,96.9); 

st= TUTORIAL INSTRUCTIONS ; 

strout(st); 

vector(25.2,92.8,72.0,92.@); 

dblwid(@)3 

strtxy(12.0,91.8)3 

m= This embedded tutorial is designed to give you the 
hands on training 3 

strout(st); 

Meeerequired to operate this ASW surveilance syster. It 
contains some overall ; 

strout(st); 

st= views of the system, Some theory of 1ts Working capabil- 
ities and then a short ; 

emout (st); 

st= scenerio of possible actions which can de taken by you 3 

strout(st): 


st= } 
strout(st); 
a= To overate the tutcrial there are three areas to watch 


strout(st); 
st= 1) all of the instructions at the top of each frare 
provide ;} 

strout(st)} 

aS ee. with the possible areas you can proceed to next 3 
strout(st} . 
m= 2) The ‘middle area is either a display which will be ; 
erout (st); 

st= normally viewed while operating the Semon Lb isa ; 
Btrout(st); 

st= display that provides a better view of the entire system 
strout(st); 

st= 3) The bottom area gives you dr explanation of the 

middle area. ; 

strout(st); 

st= ; 

serout (st); 

Bt= To Peeewe the tutorial, press the key of the first 

letter } 

Berout(st); ; 
st= of the word which describes where you wish to preceed. ; 
strout(st); . 

st= typee=—-> Continue, Filter, Quilt ; 

Strout(st); 

st= By typing an f you would proceed to a display of filters 
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eerout (st); 


y= NOW TYPE c TO CONTINUF’; 
eprout(st); 

mevurrs 

pic2a() { 


Poeeitcesuuorouvine is displayed if a mistake is 

Som weed we Oyeetne mser On tne instruction 
display */ 

char *st;3 

color(2); 

block(@.0@,8.€,18@.0,192.@); 

Color(12); 

mertxy(5%9.9,52.8); 

me 1YPE c ; 

mmrout(st); 

return; 


mca() { 
/* This subroutine calls for the display to be set 
up and tells about the purpose of the system */ 

char *st; 
eovor(1); 
block(@.@,@0@.2,182.8,19@.02); 

ocean(); 
color(2)3 
strtxy(12.2,98.5); . 

st= type = => Continue, Guit ; 


strout(st) 
strtxy(4.¢@, (28. S15 
st= iieomeay stem 15 Gesiened to pick up frequency changes 


in the ocean and determine 3 

strout(st); 

peeewhether or not they were made by a submarine or other 
vessel. Assuming there ; 

strout(st); 

st= was an area(green square) in the ocean where you wished 
to watch for submarines, ; 

strout(st)3 

= all thet would be Megco set ya te the two arrays of 
hydrophones (1 and 2) and ; 

strout(st); 

st= the technique to analyze Loe ir OuUt nus es! Or oct ten 
results Additional arrays can ; 

strout(st) 

Be be Eadled. more aStance 5. 3 

strout(st); 

return; 
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ocearn() { 
/* This subroutine draws the besic display of the 
ocean, area under surveillance, land, ani the 
arrays 7, 
eyer “st; 


color(4); 
vlock(@.2,29.0,103.%,98.9); 
land(); 

arrays()+} 

color(6); 
block(19.8,&8.9,26.3,89.90); 
return; 


} 


arrays() f /* Draws the arrays */ 
moror(7): 

block(79.@ ,84.8,82.8,79.@) ; 
mmo (25.9,52.9,29.0,335.9)3 
vector(79. 3, 32.9. Greco 1) 5 
vector(79. 6 32) 8,82.5.37.2)3 
vector(79.7, ae een, 8-3) 5 
Meepor(2&0.2,23.6,82.2,27.4)3 
vector(79. as Dee as) | 
memtor ( 79.3,55.4,52-5,07.6)}3 
return; 


land() f /* Draws the land */ 
moor (5); 
block(84.9,54.2,102.84,98.08);3 

een (25. eee es 20.0,595.2)5 
block(£9.46,42.0,96.2@, 51. 2); 
hlock(92. 0,225.8, 96.2,41.2);3 
vector(89.9,423.0,&4. Z, Bo. 
vector (89.2,40.2,84.2,52. 
vector(89.0,47.%,84.4,50. 
vector(8&9.2,43.0,84.6,5%9. 
meetor(84.0,59.0,82.¢,63. 
vector(84.0,50.%,82.2,62. 
meetvor(&4.¢0,59.9,82.4,63. 
meeror(&4.¢€,50.0,8<2.6,63. 
vector(82.@,67.@,85.%,73. 
mecvor(&2.1,6€7.9,83.%,73. 
Meenor(&2.c,67.0,86.2,73. 
vector(82.2,67.0,83.2,72 
vector(8&3.93,£4.3,81.3,9%. 
vector (&2.@,84.0,81.2,92. 
vector(82.0,84.2,81.4,98. 
Mector(&5.2,£4.3,81.6,99. 
meetor(97.€,29.0,95.0,350. 
vector(95.0,39.9,92.9,32 
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vector(92.0@,33.8,89.@,42.@) 
vector(92. A. 33.0, 89.2,42.2); 
mector(92.3,33.0,89.4,49.3)} 
vector(92. 9.32.2, &€9.6, "ag. Zo; 
plock(82.8,78.2, 83, 2 .32.0)3 
block (88.5.43.2,92.9,43.2)3 
block (82.8,57 .0,84.2,60.@); 
vector (92.8,352.%,89.8,42.0);3 
block(97.2,29.%,109.@,31.8)} 
block (86.@,45.2,98.2,51.@); 
block(83.%,58.8,86 .%,92.2);} 
block(96.2,29.%9,9&.0,31.9);3 
Dlock(9&.5,29.5,98.8,31.@);3 
Mock (96.65.29. G,98. aoe a 
vector (97.1,29. B. 83 3). Sa 2)- 
Mlock(93 5.31. 2 96. g, 34, @); 
block (92.7,32.2,98.%,34.98)} 
block(99.8,36.6,94.9,41.3); 
block (91.0 ,34.4,94.@,41.2); 
)5 
5 
)5 
3 
)5 
3 
)3 
ys 


’ 
? 
? 
’ 


block(87.2,42.2,90.2,46.2 
block (84.8, A, Peano 51.0 
mock (82.2,62.7,85.2,67.2 
block (82.@,88.0,85.2,9%.2 
block(@2. 5 66.3,84.2,71.2 
block(82.5,&6.0,&4.2,89.2 
Mock (83.5.,52.9,.85.0.60. Q 
block (82.5,€%3.3,€4.3,65.2@ 
return: 


meeci() f{ /* Noise display */ 


eolor(1 ); 

block(0.9,2.@,10@.2,102.@); 

molor(7); 

block(2.9,29.9,103.3,923.3); 

color(2); 

st= type ==> Continue, Pistance, Time, Water(temp), Quit 3 

perixy(12.2.98.2)3 

strout(st): 

meetry(4.0,27.5); 

st= Noise is what we are Suvemutinaero detect in the oceen, 
mewever there is other ; 

strout(st); 

Meeeor1Se€ in the water. This detection can be corpared to 

trying to lister toa ; 

Strout(st); 

st= specific person ccm cee nosy patty. Ine majority of 
noise in the range 3 

metrout(st); 

St= of 1@Hz to 42082 PomcouceasOyeotner Vessels in the weter, 
probably at a much ; 


ie 





merout(st); 

st= larger peeeance and thus a much weaker signal 1s 
received. 

merrout (st); 

color(@); 

vector(30.8@,40.%,30.%,30.8) 

vector(33.0,49.0,75.0,40.2) 

vector (3@.0,45.0,75.8@,45.@) 

plock(50.@,45.2,50.&,62.@); 

returns; 


° 
y 
e 
’ 
° 
’ 


mcoe() { 
/* This display discusses the problems of 
large distances */ 

Bar *st; 

color(1); 

block(%.@,90.0,100.8,12¢2.2); 

plock(@.2@,0.%9,120.9,28.98);3 

ocean(); 

molor(7); 

dlock(15.2,65.8,18.8,68.9); 

color(d); 

meror (17.9,66.5,27.0,53.@2); 

vector(17.8,66.5,88.2,35.@); 

strtxy(24.5,48. 2); 

st= 520 miles’ ’ 

Serout(st); 

pertxy(50.2,55.9); 

st= 12990 ies: f 

Strout(st); 

color(2); 

meeexy(i8.0,98.8); 

st= type = => coOnmenUcemNoise, Line, Waten (temp). Lines(tau ) 

mOuit ; 

merout(st); 

strtxy(4.8,28.5); 

st= Due to the Tao oOnmOl vaio syste 1t is necessary to 
detect any vessel ata ; 

Strout(st); 

Meeevery large distance. ‘these distances can range up over 
120G miles or they can 3; 

Strout(st); 

St= be relatively SOR nos Loneenarzes have problems or 
diffusion and large ; 

strout(st); 

= "separations ie Gerd nes wai le using two arrays 
with large distance } 

strout(st); 

st= differences causes PROUMeENSem et Me Or drrival of the 
Signal at the various arrays. ; 

strout(st); 

return; } 


ae 





{ /* This sudroutine discusses tau lines */ 


color ( 
block( 
color(6); 
vector(72.0,68.8,72.0,54.9); 
mector(37.6,51.4,72.2,51.4); 
vector(37.6,75.8,49.9,68.&); 
vector (49.2,68.8,61.4,62.9); 
vector(61.4,62.9,72.%,59.8)3 
color(&); 
mee txy(71.0,69.5); 
o—- —-~ A ; 
strout(st); 
eens? (7S: Zeno) . 
st= 3 => BOG tau line ; 
strout(st); 
strtxy(735. Crore. )4 
st= 1 => @ tau fener 
Meat (st); 
meeixy(71.0,56.5); 
St= -—- 8 ; 
strout(st); 
t= 2 
wertxy (36. 255.5); 
prout(st); 
strtxy (356. 9,78.8); 
st= 4; 
strout(st); 
strtxy(10. Q,98.08); 
color(2); 
st= type ==> Continue, Noise, Distance, Time, Water(terp), 
Problems(tau line), Quit ; 
strout(st); 
strtxy(4.2,28.5); 
st= Bauelines are just measurement lines distinguishing 
mae time arrival of the ; 
strout(st); 
t= fuenal at two dirferent arrays. If arrays A and B are 
190@ miles apart then a} 
strout (st ee 
st= ‘signal produced exactly between A and 5B (pcint 1) would 
arrive at both arrays at ; 
merout (st); 
t= exactly the same time. Additionally any signal produced 
on line 1-2 would arrive ; 
Brot (st); 
st= at both arrays leh ee In the same manner, any 
Signal produced on line 3-4 
merout(st); 


; 
; 
%,3.2,1290.2,190.9); 
; 
®,29.6,120.2,98.0); 





st= arrive at the arrays with the sare arount of time delay 
in all cases. ; 
morout(st); 


return; 


piccei1() { 
/* This subroutine discusses the problems associated 
with the tau lines and lerge distances */ 


block(€.@,2.0,18@@.0,1292.@); 
color(4); 
block(0.9,29.9,132.8,98.23); 
color(6): 
vector(72.0,68.0,72.¢, 9)3 
mector(37.6,51.4, 22. 2, ck tr 
vector(27.6,75.8,49.0,68.8); 
vector(49.2,68.8,61.4,62.9); 
vector(61. 4,62, OP ent. 59.6); 
Memeo (37.6,53.7,72.6,55.1)3 
vector(37.6,83.3,49.0 ,74.0)3 
vector (4S.9,74.3,60.€,65.8);} 
vector(6@.2,65.8,72.8,61.7)3 
color(8); 

mentxy(71.0,69.5); 

Soe ~~ AS 
strout(st); 
mertxy(75.0,61.5); 
st= 3 => BBG Haeelinie ¢ 
merout(st); 
Mertxy(73.2,93.5); 

st= 1 = @ tau line ; 

out (st); 

meet xy(71.2,356.5); 


St= ~— B ; 
strout(st); 
st= 2 


etrtxy(36. Si. 5) 
strout(st); 
merixy(36.0,78.2); 
st= 4; 
Strout(st); 

st= 225 riles --->" 
mertxy(2¢.0,81.0); 
strout(st); 

st="65 miles --->"” 
strtxy(20.2,54.8)3 
merout(st); 
strtxy(12.9,98.3); 
color(2); 

st= type ==> Continue, Noise, Distance, Time, Water(temp)'; 
strout(st); 

strtxy(4.0,28.5); 


ee 





st= Since the tau lines ere Dy OS Cmnemwrn shape, another 
problem arises in that the ; 
strout (st)} 
a Spacing between any two lines does not remain constant. 
foe Lines at points 1 and 2 ; 
strout(st); 
st= are each spaced at 52 peeomeietten ose slines 1-2 spread 
apart to 65 miles by the ; 
strout(st); 
Beeecime they reach point 2, whereas the lines 5-4 spread 
apart to 225 miles by the time ; 
strout(st); 
st= they reach point 4. This variance can cause drastic 
differences in the accuracy ; 
strout(st); 
st= of the data received, depending on it’s pesition 


relative to the arrays. ; 
Strout(st); 


return; 
pic33() f{ 
/* This subroutine discusses the problems of time 
delay and how the computer solves them */ 
char *st; 


color(i); 
dlock(@.@,90.0,120.@,120.0); 
mrock(2.0,2.9,190.2,28.3); 
ocean(); 
color(@); 
Merevor(17.9,56.5,27.8,33.0)3 
mmetor(17.0,66.5,8¢@.8,55.@); 
strtxy(16.2,79.a)3 
sSt=A ; 
merout(st); 
strtxy(24.5,48. @); 
St= 500 miles ; 
merout(st); 
mertixy(52.2,55.0);5 
m= 1229 aes } 
merout(st); 
color(2):; 
strtxy(12.0,98.9); . 
st= type ==> Continue, Noise, Distance, Water(temp), Quit ; 
Mout ist); 
mertxy(4.2,28.5); 
st= Since sound travels at 2989 Kts. (34€@ miles/hour) 
through the water you ; 
strout(st); 
St= can approximate Bc SmEedv eine eat i mile per second. 
At this speed it would take ; 
strout(st); 
Mieed fOiSS particle 12¢@0@ sec. or 22 minutes to travel from 
point A to array 2. But ; 


eS 





strout(st); 

st= it would only take 8 imemesmimen tho) travel tO array 
See paus arriving le minutes ; 

merout(st); 

st= before it would een ve at array 2. This difference must 
be accounted for by : 

strout(st); 

st= the algorithum in the computer. “ 

Mr out (st); 


return; 
pic3s4() f 
/* This subroutine demonstrates how the speed of 
sound travels at different speed depending on 
temperature, salinity, and depth a 
char *st; 
color(1); 


block(€.%0,0.0,120.8,122.8); 
color(4); 
block(@.2,29.2,1200.8,90.@); 
color(6)3 

vector (41.2,76.3,63.8,76.9);3 
vector(41.@,76.@,41. 0°36. Q); 
merexy(54.0,77. 8); 

st= Bw ; 

strout(st);_ 

st= 1000 -- ; 
mortxy(o4.2,73.9); 
strout(st); 


st= 20008 --"; 

sStrtxy(34.%9,62.3); 
strout(st)}_ 

St= 2000 -- ; 


merexy(34.0,54.3); 
strout(st);_ 

St= 4000 -- ; 
strtxy(34.2,46.2); 
strout(st)3_ 

st= 52@0¢ -- ; 
eeetcy (34. ie Se os 
strout(st); 
strtxy(39.2,81.98); 


e= 1475 1532 eo 
strout(st); 

st= 1 it leans 
mertxy(38.5,78.0); 
strout(st); 


St= Velocity (yards/sec)'$ 
Strtxy(49.9,87.23);3 
strout(st); 

me Depth ; 

strtxy (24.9,66.2); 
merout(st); 


IE 





vector(44.0,66.@2,44.2,64.@); 
vector (44.3,64.9,45. % ae ) 
vector(45.8,69.%,58.2@, G ) 
color(2); 
strtxy(13.0,98.3)3 . 
mi type = => COrtrpue, NO1se, Lime. Distance, Quit ; 
Mout (st); 
eisxy ‘4. Ge2e.5) 5 
The velocity er esournad changes as the water temperature 
salinity, and depth vary. ; 
strout(st); 
Mueerneeyne first 092 yards from the surface velocity is 


mainly altered by temperature and 3 


strout(st)s; 

st= salinity, after which depth (pressure) is the main 
factor. As temperature and salinity ; 

strout(st); 

st= rise the eee of sound eee As the pressure 
increases due to the depth, 

Berout(st); 

Meecne velocity of sound also increases. [hese variances 
are not severe but when the 3 

strout (st); 

st= measurements are Wimenuoo Or SeCONGS, envy Change will 
cause inaccuracies. } 

merout(st); 

returns 


st= (yards) 3 

strout(st); 

color(8s); 

wector(53.0,76.9,54.4,74.2); 

mector(54.4,74.2,54.4,73.8)3 

Meetor(54.4,735.2,46.6,78.2)3 

vector (46.6,73.2,44.2,66.1)}3 

vector (44.2,68.1,44 O, 66.0); 
Z)5 
O)s 

’ 


mec4() { 

/* This subroutine shows in general what ell the 
problems are in tne environment that must be 
overcome by the system ay, 

char *st; 

color(1);3 

block(9.@,90.0,100.0,19@.@); 

plock(@.@,€.0,190.2,28.0);3 

ocean()3 

molor(7); 

block(15.0,65.8,18.2,68.2);3 
3 


Meer or(17.2,66.5,27.0,85.0);3 
mector(17.¢2,66.5,82.0,35.9);3 
Strtxy(24.5,48. 2); 

st= 522 miles’ ’ 

merout(st); 


ey 





st= 1200 miles 3 
weet xy (SC. @,55.8); 
strout (st); 
color(2); 
strtxy(10.9,98.9); 
st= type ==> Continue, Noise, Distance, Time, Water(temp) ; 
Me outist)s 
strtxy(4.9,28.5)} 
st= There are several problems in the system that are 
Sitficult to overcome: ; 
strout(st)3 : 
st= 1) The distances are quite large, on the order of 1222 ; 
strout(st); 
st= 2) Large differences in distances from area to arrays 
caus® significant time delays. 3 
strout(st); 
st= 3) Differences in water temperature and salinity cause 
the sounds to travel at ; 
strout(st); . 
st= various speeds. ; 
strout(st); - 
st= 4) Other noises are always present in the ocear. } 
strout(st); 


return; 
muco() { 
/* This subroutine shows how the large area is 
broxen up into small regiorcs ae, 
Boer “st; 
color(i); 
dblock(@.@,32.8,100.0,189.@); 
Dlock(2.9,9.%9,103.32, 28, 3); 
ocean()} 
color(2); 


Strtxy(10.0,98.9); i 

m= type ==) Coentiaue, Ouit ; 

strout(st); 

strtxy(4.0,28.5); 

at These MeGecuamonanees Detween drrays Allows the system 
to cover ; 

strout (st); 

Bt= a large area of ocean, let’s say 4@@2 miles by 42@ miles 

or roughly 3 

Strout (st); 

st= the size of Montana. This area can be further subdivided 
into 190 sectors, 3 

strout (st); 

meeeecach 49 miles square to make the tracking easter. 
of these sectors ; 

strout(st)3 : 

Se= Can presently be covered by XXX correlations per hour. ; 

strout(st); 

disect(); 


xq 
Qo 
© 
- 


ee 





color(13); 
plock(19.6,64.3,21.9,66.9); 
Bolor(@); . 

st= 400 riles ; 
strtxy(14.0, 84.3); 
mrerout(st); 
mertxy(27.0,72.0); 
merout(st); 

return; 


disect() { /* This subroutine disects the region */ 
moat xi,x2<,yl,y2; 

color(d); 

X2=26 .@;3 

y1=62.93 

y2=89.0; 

for (xl=19.0;x1<=27 .05x1=x1+1.6) 
mector(xl,yi,x1,y2); 

X1=10.93; 

for (y1=62.@3y1<=61.@3 yl=y1+2.2) 
vector(xl,y1,x2,y1)3 

return; 

} /* End of segment 1 */ 
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/*WHHHHHHHHHHHHHHHRHHHHHHR AHR HH HR RHR HHH HHH RHE HHH RRR HRB 
# This is the third section of the tutorial and it is 2 
meset Up in the same manner as the other sections. It con- # 
# tinues tne presentation of displays and allows the user # 
# to see the overall system and sore of its fine points. = 
# Many of the parts that were generated in the first part # 
meaave to be rédone in this section due to the forking # 
# technique used to link corpiled programs. # 
HHEHHRHHRHHHHHRHHHHRRHRERH RR RHR RE RR ERHHRHRRARRHR RRR RRR RAR RES / 


main() f{ /* section three of the tutorial */ 
Moat X,y,Z3 

iar cc,cd,ce,*st; 

mit jw: 

ramtek(); /* initializes the Ramtek system */ 

mraton(1 ); 

colortable(); /* establishes a color tabdle */ 

molort(10); 

mares ( )3 /* area breakdown disvlay */ 


w=2; 
me= Zz; 
while (cc=="z°) { /* while #41 */ 
cc=retchar(); 
switch(cc) { /* switch #1 */ 
case “c’: j= aGoowinue */ 
pic6(); /* correlation display */ 
break; 
case ‘r’: /* Return */ 
pstopn(); 
mice (); V@GOCreratLron display “/ 
ee= 2.5 
break; 
default: 
ec= 2°; 
} /* end switch #1 */ 
} /* end while #1 */ 
me- 2°; 
While (cc==’2’) { /* while #2 */ 
cc=retckar(); 
ewaitch(cc) {f{ LGM Gente / 
case “h’: /* hydrophone display */ 
pic61(); 
midis 2° 5 
while (cd=="z") {f{ futile #5 */ 
cd=retchar();} 
switch(cd) {f{ V7 Seow irc iat o  « / 
case ‘a’: /* array pointing display */ 
pic611(); 
CC=e7 a: 
break; 


&? & 


case “e: /* ellipse display */ 
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picé2(); 

Gemee 
while (ce 
ce=retc 
switch ( 
case 


has 


display pic& 


pic8(); 
else 

pic7()3 
break; 

case “e': 

pic621(); 
w=1; 
eesti 3 


preak; 
default: 
ee= 2 5 


} 036 /® end switch 


} - 
cc= Zz; 
break; 

case “c’: 
pic7(); 
preak; 

case “r 


. 


default: 
Cima; 


end wnile #4 * 


/* Continue 


/* Returer 


{ /* while #4 */ 


/* switch #4 */ 
Foe ontunie «/ 


If combined ellipses display 


been presented, skip and 


er 


/* combined ellipses display */ 


/* hydrophone display * 


Return */ 


/* 
hydrophone display * 


#4 3 / 


we 


ay, 


ake / 
oy 


/* hydrophone display */ 


} /* end switch #43 */ 
} /* end while #3 */ 


break; 


case “e’: /* ellipse display */ 


while (cd=="2 { 


) 
cd=retchar(); 
Switch(cd) f 


7 


case “e’: 


Lewin ee. 7 


/* switch #5 */ 
/* combined ellipses display */ 


deed 





pic621(); 
SEILD Oe 
CC= Z 3 
break; 
case “h’: /* hydrophone display */ 
pace is 
ce=’2°; 
while(ce==’2°) { /* while #6 */ 
ce=retchar();} 
switch(ce) { /* switch #6 */ 
case “c’: /* Continue */ 
if (w==1) 
pic8(); 
else 
pic?(); 
break; 
case “a’: /* array pointing display */ 
pic6é11(); 
cc="2°3 
break, 
case ‘e's: /* ellipse display */ 
pic62(); 
ea= 2 4 
break; 
case ’r’: /* Return */ 
pston(); 
pic62(); /* ellipse display */ 
cd="2°3 
break; 
default: 
ce="2°; 
/* end of switch #6 */ 
} /* end of while #6 */ 
break; 
case “c’: /* Continue */ 
if (w== ) 
pic8(); 
else 
pic7()3 
break; 
case “r’: /* Return */ 
pstop(); 
pic62();3 
ed— 2 ; 
break; 
default: 
eae, 
} 8 /* end switch #5 */ 
} /* end while #5 */ 
break; 
case ‘cc’: /* Continue */ 
if (w==1) 
pics(); 
else 


/* ellipse display */ 


E22 





pew) 
break; 
case “r’s: /* Return */ 
pstop(); 
Pucene) + /* correlation display */ 
eG= 76; 
break; 
default: 
sc—— 7) 5 
} /* end switch #2 */ 
} /* end while #2 */ 
if (w==2) {f{ J ites mtn. / 
ec= 2°; 
while (cc==’z’") {f{ /* while #7 */ 
cc=retchar()} 
switch(cc) { /* switch #7 */ 


7 


3 


case “m': /* draws more ellipses */ 
pic7a(); 
color(1); 
bplock(@.8,92.0,100.8,1908.@); 
color(2)3_ 


strtxy(12.0,98.0); 
st= type ==> Continue, Return ; 
strout(st); 


a a 


/* Continue */ 


y 
) 
9 
“3 /* Return */ 
( 
) 


) 
; /* combined ellipses display */ 
’ 


} /* end switch #7 */ 
/* end while #7 */ 
} /* end If stmt #1 */ 
else 
w=2; 
returns 
} /* end main section of segment 2 */ 


pstop() f{ 
ear *st,*sp, stop; 
Sp= 5 
molor(i1); 
block(9.%,0.8,190.0,102.8); 
color(5); 
strtxy(45.@ ,80. S); 
st= DO You" 
eorout (st); strout (sv); 


ae "REALLY. ’ 
Srour(at); strout(sp)s 
st= WANT TO > 
promt (st); strout(sp); 
St= RETURN TO ; 
strout( THE MAIN: )5 strout(sp); 
strout( PROGRAM? ); 
st= (y /n) 3 
strout(st);3 
stop=retchar(); 
if (stop=="y’) f{ 
color(@); 
block(@.9,8.0,18909.0,109.0)3 
exit(); 


return; 


Bacol() f /* Hydrophone display */ 


color(1); 

block(%9.%2,8.9,190.2,190.0); 

eo1or(7 ); 

block(@.2,29.0,100.@,98.@8); 

color(2); 

strtxy (10. 9,988.8); i 

st= type = => Continue, Ellipses, Array (pointing), Ouit 3 

strout(st); 

strtxy(4. Oe. 2); 

st= The system WOmecOmmect hes horse data 1S dk array of 
hydrophones, roughly 2823 feet ; 

strout(st); 

st- long containing 6@ passive sonar devices. If no 
adjusting (pointing) of the array 3 

strout(st); 

Meee is done, then only noise waves coming ir at the array 
directly abeam of the array ; 

strout(st); 

st= will be detected. The MOC dhrives at the array in 
the same manner that a wave ; 

strout(st); 

St= crashes on the beach, some come in straight and others 
hit at an angele ; 

Btrout(st); 

color(12);3 

block(19.9,37.9,&1.8,39.0); 

color(@); 

for(x1=20.03 x1<80.5;x1=x1+1.9) 

block(x1,37.9,x1+8.2,38.1)3 
pertxy(i5. g. aa. 8); 
eerout( Noise ee 
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strout( Wave )3 
strtxy(54.0,70.0); 

strout ( Beam Pattern’); 
vector(22.0,76.0,78.8,76.0)}3 
vector(22.3,52.8,78.8,52. +e 
strtxy(42.0,35. 5); 

strout( HYDROPEONE ARRAY )3 
arrows()3 

molor(13); 
vector(59.0,39.9,48.@,72. 
mreyor(59.9,59.9,52.9,72. 
vector (48.0,72.0,48.2,77. 
vector(48.2,77.8,49.9,79. 
vector (49.3,79.9,51.9,79. 
mector(51.¢,79.0,51.8,77. 
vector(51.8,77.0,52.0,72. 
return; 


YW AQ QA EQ OA 
Se et Stl et Set age ee 
@e @42e we @O we we We 


arrows() f{ 


color(@); 

mer~xy(29.0,80. ae , 
strout( V V V3 
Birtxy(29.9,56. a): 
strout( V v V Vi)s 


vector(29.£&,84.0,29.5,77.8); 
vector (3&.2,54.0,3&.2,77.0) 
vector(59.0,64.8,59.2,77.@) 
vector(69.9,84.0,69.9,77.@) 
vector(29.5,69.9,29.5,53.39) 
mector(32.2,60.0,38.2,53.8) 
vector(5$9.0,60.8,59.¢,53.@) 
vector (69.9,68.8,69.9,53.3); 
returns 


9 
° 
’ 
* 
§ 
° 
9 
® 
y 
8 
’ 
° 
9 
’ 


macoii() f{ 

Char *st; 

float x1; 

Eolor(i); 

block(8.0,0.8,10¢€.08,102.@0); 

molor(’ ); 

block(%.9,29.3,1090.2,93.9)} 

color(2); 

strtxy(12.0,98.0); : 

st= type = => Continue, Hydrophones, Ellipses, Quit ; 

mrrout(st); 

strtxy(4.0,27.0)3 

strout ( In Cmdeieworscoveres Jarge ared of water with 2 
Single array, it must be.) 5 

strout( capable of directing its beam in several directions. 
This is accomplished a 

strout( by using a time delay between receiving a signal at 
various hydrovhones. )}3 





strout( There can be roughly as many beam vatterns as there 
are hydrophones and ); 
strout( the beam patterns generally overlap so as to cover 
the entire area. )} 
color(12)3 
plock(39.2,57.0,61.@,39.@); 
color(@); 
for(x1=40.93x1<68.5;x1=x1+1.2) 
block(x1 ,27.9,x1+0.2,38.1 
vector(5¢.8@,39.8,48.0,72.@); 
vector(5Z.%3,39.8,52.8,72.98); 
vector(48.0,72.9,48.2,77.@) 
vector(48.2,77.0,49.2,79.@) 
vector(49.@,79.0,593.8,79.5); 
mector(5¢0.0,79.3,51.2,79.8); 
vector(51.0,79.8,51.8,77.8) 
meetvor(51.8,77.9,52.9,72.90) 
/* first beam left */ 
meetor(50.2,39.0,41.7,71.2);3 
vector(41.7,71.2,41.2,75.2); 
mector(41.0,75.0,41.8,77.5) 
vector(41.8,77.5 ,43.2,77.9)3 
vector(43.2,77.9, 44.6, ee me 
Q); 
v 


’ 
7 
° 
9 
« 
g 
y 
7 
e 
’ 
* 
g 


vector(44.6,76.2,45.7 ok 
vector(45.7,72.4,59.@, 
x eon pil ~ 
Bolor(2); 
vector (50.0,39.2,44.8,72.2); 
vector(44.8,72.2,44.2,76.3) 
vector (44.2,76.2@ 45.578, 1) 
vector(45.5,78. ioe ei 4ls 
vector(46.9,78.4,47.8,78.2) 
vector(47.0,78.2,46.2,76.0) 
vector(48.2,76.2,48.7,72.5);3 
vector (48.7,72.5,52.8,39.98); 
h 
) 
) 
4); 
) 
) 
) 


g 
? 
@ 
9 
’ 
’ 
° 
’ 
, 


3 
™ 


l= second beam real fe 
vector(59.9,39.0,51.5,72.5 
femeror(51.5,72.5,52.9,76.2 
Meer or(52.20,76.2,53.2,78. 
mector(53.2,78.4,55.5,78.0 
mereuor(55.5,78.2,56.2,75.0 
mereror(S6.2,75.0,55.8,72.38 
vector(55.8, "72, Soleo, oo.) 
7/* first bear right */ 
color(@); 
vector(50.0,39.9,54.8,72.2); 
meevor(54.8,72.2,56.0,76.9); 
vector(56.0,76.9, 574.77, 9); 
meetor(57.4,77.9,59.2,77.3)3 
)5 
)3 
)5 


~e@ we we WO "et we ©@ cP we 2=¢ wWewe WO we We we 


Mectvor(59.2,77.3,59.6, 25, g 
memeor(59.6,75.0,58.7,71.5 
mector(58.7,71.5,5@. a.39, 2g 
returns; 
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ecolortabd 
met ali 


Qu 
o™ 
Hp» 
bec 
ound uid wun wea 


wy 

= 

— 

N) 
buu ww it 


a [15] 
clrtbl { 
return; 


ocean() 
char *st 


color(4);} 


le() { /* EFstablishes a new cclor table 


6]; 
triple(2,%,@)3 
triple(15, eZ, Q); 
triple(¢?,15, )3 
triple(d,2, 15)} 
triple(15,5 »2)5 
triple(2,@, 6); 
triple(d,12, 3) 
Eoiolel2.c, 1B) 
triple(6,19, 2) 
triple(1%,2,6) 
triple (12,5 ; 
tepeoe ts. 2,15 
UE Ole we .lo.5 
triple(i5,¢, 15 


triple(10,4,4)3 


= ea 


triple(15,15,15); 


Hose); 


{ /* Draws the ocean 


e 
; 
’ 


block(9.2@,29.8,12¢.0,98.@); 


land(); 
arrays() 


color(6); 


e 
’ 
? 


block(10.@,60.2,26.2,80.2); 


return; 


arrays() 


{ /* Draws the arrays 


color(7); 
block(79.0,84.8,80.2,79.8); 


block(2& 


return; 


land({ ) 


color(5); 
block(84.@,50.0,190.8,90.@); 


WOEoe 0 ,ed.0,05.0); 
mector(79.9,53.9,82.0,37.1 
vector(79.5,33.8,82.5 
vector(79. 7.33.7 
vector(80.9,33.6,83.9,37.4 
meetor(79.2,33.5,82.2,37.5 
vector(79.3,33. 4 82.3.37.6)3 


oie 
PO Geee 


\; 
)3 
)3 
)3 
)3 


{ /* Draws the lard 


? 


block(95.0,30.0,122.8,55.@); 


aE ce, 


7 


ay! 


ae / 
“~- 





block(&89.@,40.9,96.90,51.@)}3 
block(92. 2.32.3. 96.8,41.0);3 
vector(&9.3,40. Z, &4. 2, 5B, g) 
vector (89.0.40.9.84.2,52. ZG) 
vector(89.0,40.@,84.4,50.@) 
vector(69.9,4%9.0,84.6,528.9) 
vector (&4.0,50.0,82.0,63.@) 
vector(84.9,50.8%,82.2,63.@) 
vector (84.9,53.9,82.4,63.0) 
vector (&4.2,50.0,82.6,63.9) 
vector (82.2,67.0,83.%8,73.5) 
mector(’2.1,67.9,83.0,73.5) 
vector (&2.2,67.9,83.2,73.5) 
vector(82.3,67.9,83.2,73.5) 
vector(82.0,84.3,81.8,92.2) 
vector (&3.0,84.@,81.2,90.@) 
vector(82.0,84.9,81.4,90.9) 
vector(83.9,&4.%,81. 6.92. Q) 
vector(97.2,29.0,95.@, Q ) 
vector(95.8,30.2,92.¢@, @ ) 
vector(92.3,33.2,89.2, . 3} 
vector (92. Cenc 89 ..2,40.0) 
vector(92.0,52.0,89.4,49.@) 
vector(92.2,33.0,89.€,42.2) 
block(a@2.8, 72, a, 83, g, aa, @); 

plock(88.5.40.0.90.0.43.2)3 
block (82.&,57.%,84.2,62.0); 
vector(92.0,32.28,89.8 ,42.2);3 
block(97.0,29.2,120.20,31.@) 
block(8&6.3,45.8,9%3.3,51.9); 
block(8Z.2,58.2,&6.2,92.9);3 
block (96.8,29.0,98.2,21.0); 
block(95.5,29.5,98.9,31.2)3 
block(96.5,29.0,98.2,30.2);3 
mector(97.1,29.2,95.0,5%.2); 
meroc «(93 .5,31.2,96.9,3%4.9); 

moc (92.7 ,32.0,98.0,34.9)3 

block(90.@,36.6,94.0,41.@); 

block(91.8,34.4,94.9,41. 
plock(87.2,42.2,90.¢,46. 
block(84.8,47.2,88.@,51. 
block(82.2,62.7,&5.0,67. 
block(82.0,88.0,85.2,9@. 
block(82.5,66.0,84.0,71. 
block (&2.5,86.0,84.0,89. 
block(83.5,53.8,85.2,6@. 
block(82.&,62.0,84.2.65. 
return; 


2e We WO we *S we we We We we @S we we 2O we we Pe We we 7S we we 
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peco() f{ 
/* This subroutine shows how two arrays crcss over 
to cover an area */ 
Shar *st; 





color(1); 

block(@.0,92.8,190.0,198.3) ; 

block(@.@,@.0,102.@,28.0); 

ocean()} 

color(2); 

strtxy(10.9,98.8); . 

st= type ==> Continue, dydroraones, Ellipsoids, Quit ; 

strout(st); 

strtxy(4.0,28.5);3 

meer Correlation takes place when two different arrays 
cover the same area of ; 

strout(st)3 

st= ocean (sector K). An array picks up the frequency 
changes made from the direction ; 

strout(st); 

St= in which the hydrophone array 15 pointing and then it 
is compared tc the frequencies ; 

strout(st); 

me obtained by another hydrophone array. If there is a 
correlation cf sounds, then ; 

Strout(st); 

Meee possible contact is made somewnere within an ellip- 
solid shaped area near that point. ; 

strout(st); 

Selor(i3); 

bock(19.6,€4.3,21.8,66.90);} 

color(@); 

vector (27.9,33.0,16.9,89.0); 

meetor(27 .9,55.¢0,19.2,80.9); 

Mector(80.0,34.1,12.8,72.3);3 

vector (8@.8,34.1,1%3.0,68.6); 

Sertuxy(22.0,70.0); 

st= K ; 

strout(st); 

return; 


picé62() { 
/* This subroutine shows how the tau line intersection 

will determine the shape of the ellipses a7 

Char *st; 

color(1); 

block(®@.@,8.0,100.0,199.@); 

color(4); 

block(0.@,29.0,100.0,92.@2); 

color(1)3 

bDlock(49.9,29.8,51.8@,90.2); 

eolor (7); 

vector(5.0,80.0,45.9,35.@0); 

vector(5.3,35.3,45.%,89.0);3 

vector(65.0,80@.0,8@.8,35.0);3 

vector(80.8,80.0,65.@,35.@)} 

color(6)3 

meetor(77.0,70.0,77.2,45.G6);3 





vector(77.0,45.0,76.%,42.0)} 
vector(7§.@,42.0,73.2,41.@8)3 
vector(73.0,41.9,69.8,42.1); 
vector(69.8,42.1, Secon Q); 
vector(68&.2,48.9,68.2,70.@); 
Peetor(€8.2,72.9,78. Bene); 
Meetor(70.2.75.2,73 -2.74.4)} 
Memeapor (75 .2,74.4, 75.7, 7000)3 
vector(75.7,73.0,77.8,70.2);3 
vector(33.9,64.9,33.0,62.0)$3 
vector(53.0,60.0,32.8 ,54.9); 
vector(32.8,54.0,31.@,51.0); 
Mector(ds1.2,51.9,27.5,48.5); 
vector(27.5,48.5,22.8,49.@) 
vector(22.8,49.8,19.3,51.2)3 
Mmeror(19.3,51.2,17.3,55.3)3 
meeor(17.3,55.35,17.6,50.G) 
vector(17.3,60.2,19.2,64.9)} 
vector(19.3,64.0,23.2,66.2);3 
vector (23.2,66.2,28.2,66.1)} 
vector(28.0,66.1,30.9,64.9) ; 
color(2); 

strtxy (19. G9,85.0); 


; 
} 
; 
} 
; 
; 
} 
; 
j 
; 
; 
’ 
: 
} 
) 
) 
} 
; 
) 
; 
) 


st= DIAGRAM A DIAGRAM B- 


merout(st); 

strtxy(12.0,98.8); ‘s 
st= type Continue, Ellipses comodined, Hydropnones, Quit ; 
peerout(st); 

mertixy(4.9,28.5)3 


st= When a correlation is made from data received at two 


arrays, then an area of probable ; 

strout(st); 

st= contact is determined. The probability that the noise 
came from a specific region of ; 

strout(st); 


$t= water generally forms an Sees cco dude hel Ss) Ata nd 


B. When the tau lines are almost ; 

strout(st); 

es ‘perpendicular the the ellipse JogGecameates ¢ Circle 
Which will have a small area of ; 

Strout(st); 

os ‘probability, HOWwevemeamany Times the tau lines meet at 
relatively small angles ; 

strout(st)} 

sy- and cause the area to become 4 very long ellipse 
(causing high uncertainty). ; 

murout(st); 

return; 


pic6é21() { 

/* This subroutine shows how ellipses are combined */ 
char *st; 
pic?(); 


aS) 


y 





pic7a(); 

color(i);: 

block(0.%,%3.3,192.0,1308.32); 

strtxy(4. 8,97.0)3 : 
= type ==> een ter nyemopaowes, Sllipsoids, Quit ; 
strout(st); 

plock(@.2,0.0,100@.€,7.2)3 

return; 


mic?’() { 

/* This subroutine shows how ellipses are combined */ 
char *st; 
Bolor(1); 
block(0.9,0.9,198.2,190.2); 
color(4); 
plock(@.%,29.0,128.8,92.@); 
color(3); 
mector(59.7,78.5,62.8,79.6); 
vector(62.8,79.6,66.0,80.5); 
vector (66.%3,88.5,70.2,78.1);3 
meetor(70.2,78.1,72.8,74.90); 
mector(72.8,74.80,72.2,68.2)3 
vector(72.2,68. 2, 69.0,63.3)3 
vector (69.@,65.2,46.9@, ee) 
vector(46.0,47. : a asl 2): 
Meetor (41.0,45.2.36.4,44.2);3 
meetor(é6.4,44.2,33.2,46.2); 
Mereror(o0.2,46.2,51.2=,58.98); 
meetor(31.5,58.0,31.€,54.9)3 
meenor(51.6,54.0,32.4,58.2)} 
vector(32.4,58.2,38.0,63.8); 
memernor(502&.9,63.8,59.7,78.5); 
momor(15); 
vector(46.2,67.8,58.8,64.@); 
vector(58.8,64. 0,62.2,61.@)3 
mector(62.0,61.8,62.9,58.9); 
vector(62.9,&8.2,60.2 "55, 4); 
vector(€2.2, 55.4,53.3.54.0)3 
vector (53.3,54.0,42.0,56.8)3 
vector(42.0,56.8,39.8 ,60.@);3 
vector (39.8,69.8,39.6,64.9)}3 
Mecetor(s9.6,64.0,42.2,67.2); 
vector(42.2,67.%,46.8,67.8); 
color(2); 
mertxy(12.0,98.0); . 
st= type = => Fonrtvinue, suat 5 
strout(st); 
strtxy(4. G, 28. a 
st= Weeresevorealsmleces of data can be gathered about a 

specific frequency, then the } 
strout(st):; 
st= elipses can be combined to reduce the area of probdabdle 


ok 





@ortact. As the diagram ie 
mrrout (st); 
me tliustrates the second set of data forms an ellipse 
which is inside the first ellipse. 3 
strout(st); 
st= Additional data ScUsemmOtescrl 1 pseS stove formed inside 
mrenoresent ellipses. ; 
strout (st); 
st= Type “m’ to see how more ellipses are combined. ; 
strout(st); 
return; 


picva() f{ 

/* Draws the combining ellipsoids with a 2 second 

pause between ellipsoid drawings */ 

Spar “st; 
color(@); 
Meetor(4&8.8,64.6,52.2,66.3) 3 
meetor(52.2,66.3,55.2,66.0); 
meetor(55.3,66.9,56.4,64.2);3 
vector(56.4,64.2,56.8,62.@)3 
vector(56.2,62.0,54.4,59.8); 
vector (54.4,59.8,49.2,56.9); 
vector(49.2,56.0,47.@,55.5); 
vector(47.8,55.5,45.2,55.4)3 
mereor(45.2,55.4,43.7,57. a); 
vector(43.7,57.4,44.35,6%.2) ; 
vector(44.2,69. 2,48.8,64.6); 
sleen(2); 
eolor(15); 
Meetor(&2.4,65.7,54.4,65.9); 
vector(54.4,65.%3,55.2,63.@); 
Meervor(55.2,65.€,54.6,61.2)3 
vector(£4.6,61.2,52.@ ,58.2)3 
vector(52.2, 58.5,49.9.56.5); 
vector (49.2,56.5,47.0.56.0)$ 
vector (47.0,56.%,44.8,56.4); 
vector (44.8,56.4,44.2@,58.1); 
vector(44.0,58.1,45.@,60.2);3 
vector(45.9,60.2,49.%,64.90); 
vector(49.90,64.0,52.4,65.7);3 
sleep(2);3 
color(@); 
Mee tor(4&.2,62.2,5€.2 ,59.8);$ 
vector(§%.8,59.8,52.8,58.08); 
vector(59.8,58.2,58.2,57.2)} 
vector(50.8,57.2,48.2,57.B)} 
vector(48.2,&7.0,47.5 ,57.2)3 
vector(47.5,57.2,46.9,59.&)}3 
vector(46.0,59.8,46.2,61.5);3 
vector(46.2,61.5,47.2,62.@) 
vector(47.2,62.9,4&.3,62.2)}3 
strtxy(48.4,61. a)3 


Bo 





a= A ; 

strout(st); 

strtxy(1@.@,40.8); . 
st= The area around point A is now the contact area. ; 
strout(st); 

return; 


pic8() { * This subroutine shows the overall system */ 
Bhar “st; 
color(1); 

block(.0,9.%2,190.8,100.8); 

color(4)3 

block(@.2,29.8,128.2,98.@); 

color(8); 
block(5.9,4%3.9,6.3,47.@) 
meock(5.¢,5¢0.0,6.0,57.9)3 
block(5.%,6%.8,6.8,67.8);3 
block(12. g 48, a, 25.2,62.0);3 
miock(25.0,75.0,52.€,85.0); 
block(4@.0,73.9,48.9,80.8);3 
block(55.8,73.8,75.0,80.0) 
block(5@.2,45.8,60.€,60.8) 
dlock(72.0,45.0,82.0,60.@) 
mook(50.2,32.0,75.0,38. at 
meetor(S.5,44.0,13.0,55.@); 
meetor (5.5.64. Geet 55 2); 
vector(5.5,64.9,13.2,55.93);3 
vector (2?.0,62.0,25.2,82.¢ 
vector(32.0,808.9,44.%,77.@ 
mector(44.9,77.9,55.8,77.0 
mector(65 .2,735.9,55.%,62.@ 
meetor(65.0,73.8,77.0,68.0 
mector(55.23,45.9,65.9,38.2 
vector(77.0,45.@,65.2,58.2@ 
color(2); 
strixy(3. 2,68.3); 
st= A ; 
eenout (st); 
st=R ; 
ptrout(st): 
strout(st); 
Sst=A 35 
strout(st); 

St= _; 
strout(st); 

st=S ; 
strout(st); 
memexy(15.0,69.2); 
st= BASE 
strout(st); 

St= STATION” 
strout(st)3 


) 
) 
) 
) 
) 
) 


@=e~e @@ we we @@ we 
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Bet hxy (27 022.2); 

st= ARC 

ut (st): 
stryxy(41.0,7€.8); ‘ 
ei FILTER CORRELATOR 5 
strout(st); 

mertxy(52.8,58.¢); 


<= 


st= PRAY SURFACE '$ 
strout(st); 
st= DATA PLoTs ; 


strout(st); 

meotxy(55.09,36.9); 

=. TRACKERS’ ; 

merout(st); 

strtxy(12.2,98.0); 

m= type = = Continue, tecnniques (of correlation), 

Parameters, Quit ; 

strout(st); 

strtxy(4.¢,28.5); 

st= A brief Cen Wew Or the Entire System demonstrates the 
amount of complex machinery 3} 

strout(st); 

st= required to accomplish this Sewviel Ponce ae ha bdis, are 
recieved at the arrays and are ; 

strout (st); 

st='transmitted to the base station, then sert via satalite 

to the ARC. In the AKC the data ; 

Strout(st); 

st= is then sent through filters and a correlator, where 
the computer establishes two sets ; 

strout(st); 

st= of data (peak data files and surface plots). The peak 
data and surface plots are j; 

Strout (st); 

st= reviewed dy VicmmGdcnems FO determine any possible 
vessel tracks. 3; 

mrrout(st); 


return; 
mcs() { 
/* Same subroutine as in segment 1, but it must de 
redrawn at this point due to the fork process */ 
char *st; 
color(1)}3 
block(%3.%9,90.3,120.2,120.2); 
block(@.@,@.8,100.0,28.@); 
ocean(); 
Bolor(2); 


strtxy (1. 9,98.0); 

st="type ==> Continue, Quit’; 

mrrout(st); 

strtxy(4.0,28.5)5 

st= These large distances betweer arrays allow the system 





to cover } 
strout(st); 
mo a large area of ocean, let’s say 402 miles by 4380 riles 
or roughly 3 
strout (st); 
st= the size of Montana. This area can be further subdivided 
into 10@ sectors, ; 
Strout (st); 
st= each 4@ miles TU ee meuomiatea i Teommunacking easier we Each 
of thes sectors ; 
strout(st); : 
st= can presently be covered by XXX correlations per hour. ; 
merout(st); 
disect(); 
mol1or(1i3) 
plock(19. 
color(3d); 
st= 4@2 miles 3 
strtxy(14.2,84.8); 
merout(st); 
merixy(27.0,72.08); 
merout (st); 
return; 


bric4 ois. 66.0), 


disect() f{ 

memoat X1,X2,yV1,¥23 

molor (a); 

X2=26.0; 

y1=€2.0; 

y2=82 .G; 

ome x1 =10 .0;x1<=27 .63x1=x1+1.6) 
mecuor(xi,y1,x1,y2)3 

mi=10.0; 

for (y1=69 .@;y1<=81.@; yl=y1+2.@) 
Serewor(xl,y1,x2,71); 

} /* End of segment 2 */ 
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/*HHHHHHHHHHHKH HHH RKR HHH KRHA RRR RR ERR HR RHR RRR REE RE 


# 
# 
3 
F 
# 
# 
& 


main() f 


This is the fourth section of the tutorial and it gives # 
the user a detailed look at the types of displays that # 
he will be seeing under actual operating conditions. It #4 
exvlains specifics to watch out for, whereas the senario# 
gives only a very brief explanation. The flow of the # 
Broeram iS very similiar to the first two sections. # 


HHEHEHEHEHEPHHHR RHE HEH REHRHHRBHRE HH EERE EHR EHR HEHEHE RRB / 


/* main of the fourth section */ 


mboat X,Y,23 
mmar cc,cd,ce,*st}3 
mot Sarp,l; 


ramtek(); /* initializes the Ramtek system */ 
writon(1)3 
colortable(); /* establishes a new color table */ 
morort(i2); 
pic8(); 
os’2’: 
marie (cc=="z") f{ /* while #1 */ 
cc=retchar()} 
switch(cc) f /* switch #41 */ 
case °c’: /* Continue */ 
picga(); /* positional data display */ 
break; 
Base ‘Tr’: /* Return */ 
pstop(); 
pic8(); /* overall system display */ 
ee= 2 } 
break; 
case “t°: /* technique display */ 
marcel ( )3 
ea= 2 ; 
while (cad==’z") {f{ /* while #2 */ 
cd=retchar(); 
switch(cd) { /* switch #2 */ 
case ‘c’: /* Continue */ 
maic9a ( ); 
break; 
case ‘r’: /* Peturn */ 
PStop ); 
picen( ); /* technique disvlay */ 
cd="2 73 
breaks 
case “f": /* formula display */ 
pic&811(); 
c= 7; 
bree Kk; 
case “p’: /* varameter display */ 
mice ) 5 
ee— 7 ; 
break; 
default: 


oe 





aa 7; 


} * end switch #2 */ 
} /* end while #2 */ 
break; 
case “p : /* parameter display */ 
pic82(); 
cc='2"5 
break; 
default: 
cc=°273 
} /* end switch #1 */ 
} /* end while #1 */ 
ee- 7%} 


while (cc=="2") {f{ /* while #Z */ 
cc=retchar(); 
switch(cc) { /*®* switch #3 */ 


case “c’: /* Continue */ 
pic9d(); /* peak data display */ 
break; 
case “r’: /* Return */ 
pstov()$ 
pic9a(); /®* position data display */ 
Sc= 2 3 
vreak; 
default: 


CcCCc= 8 
} /* end switch #3 */ 
} /* end while #2 */ 
mc= 2°; 
while (cc 
cc=retch 
switch( 


oe) 4 /* while #4 */ 
’ 

{ /*®* switch #4 */ 

P cor nie ~«/ 

/* scores display */ 
/* Return */ 


’ 
)3 /* peak data display */ 
y 


} /* and switch #4 */ 
} /* end while #4 */ 


cec="2 "5 
Mle (cc=="2" ) { /* while #5 */ 
cc=retchar(); 
Switch(cc) f{ /* switch #5 */ 
case “c’: /*® Continue */ 
pci? ( ); /* surface plot display */ 
vreak; 
case ‘r /* Return */ 


’ 
picSc(); /* scores display */ 


Loy 





fc- 7; 
break; 
default: 
ec= 27 ; 

} /*® end switch #5 */ 
} /* end while #5 */ 
me Z ; 
samp=1; 
while (cc 

cc=retch 


= et /* while #6 */ 
a 
switch(cc 
)5 


="2 
rey; 
) { /* switch #6 */ 

7* Continue */ 

Po (Govervance matrix display */ 


ao 


cease c 
picii( 
break; 

case ‘r 
ostonp 


: /* Return */ 
();5 
eee /* surface plot display */ 
’ 


default: 
ec=°2°3 
} /*® end switch #6 */ 
} /* end while #€ */ 


} /* end main of section 3 */ 


mewop() { /* Quit? subroutine */ 
ena r st mS 0D, SDs 

ro 

Betor(i1): 
block(9.2,9.3,198.%9,182.2);3 

eolor (5); 

strtxy (45.9 pa 

m= DO YoU 

merout(st); 
strout(sp); 
B= REALLY 
(st); strout(sp); 
fa= WANT TO ; 
strout(st) 
strout (sp) 
st= RETUR 


=u~wewe C~ 


TOs 
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Bprout(st}; stroyt(snp)s 
strout( THF MAIN ); eee (s0)'s 
ee rout( pa Oe 

m= (v / n)- 

Berout(st); 

stop= retchar(); 
if (stop==* y°) f 

color(@); 
block(@.2@,@.0,12@.2,1@2.2) ; 
exit(); 


Return; 


colortable() f{ /* establishes a new color table */ 


int a[1ié6]3 

afO] = triple(@,9,%); * black */ 

afi} = triple(15, 3,2)3 /*® pdlue */ 

piz) = triple(@, 15,2)3 /* green */ 

afZ} = triple(@,@,15); /*® red */ 

af4] = triple (15, 5,9)3 * light blue */ 
ao) = triple(2,2,6)3 /* maroon */ 

af6] = tripvle(%,19,9); Lines tee reen. «/ 
mir) = triple(2,6,10); /* peach */ 

afa] = trivle(6,1@,2); /* pail green */ 
af9] = triple(1a, Zee; ee ybiicyilta. tev 

a{i@] = trivle (13, 5,2); /* medium blue */ 
fer} = triple(5,2,13)3 7 OG pins / 
meumre| = triple (2,12,5) /* light green */ 
meio] = triple(15,@, 15); /* pink */ 

af14] = triple(1%g,4,4); /* greyish blue */ 
fms) = triple(15,15%,15); /* white */ 
clrtdl(1d,a)3 

heturns 
pic8() { 


/* Redraws the display of the overall system */ 
Boar “st; 
molor(1); 
block(@.@,@.0,1800.2,180.@); 
color(4); 
block(2.9,29.9,1923.3,93.2); 
color(&); 
Dlock(5.0,42.0,6.0,47.0)3 
moc *(5.0,50.9,6.%,57.2)3 
ppoc «(5.8,60.0,6.9,67.2)3 
mlock(i2.0,48.9,25.0,62.@); 
mmoet4 25.6 .75.9,852.- ce 3)% 
Block(4@.0,73.0,48.@,88.@); 
dlock(S5.2,73.0,75.0,89.8); 
mock (50.2,45.0,69.08,629.2); 


plock(72.@,45.2,82.%,62.8); 
bdlock(50.2,32.3,75.%,38.98); 
vector(5.5,44.9,13.%,55.@8);$ 
Meetor(S.5,54. 9,13.0,55.2); 
vector (5.5,64.9,13.98,55.9); 
Mector(20.2.62. a. 25. 3.80, g) 
Pactor(22.0.80.%,44.0,77.0) 
vector (44. - Wie ao 77 10) 
vector(6&.@,73.8,55.@,62.@) 
Mector(65. 73.0,77.8,69.@) 
Wor (55.2.45.6.65.9,38.8) 
vector(77.2,45.8,65.2@,08&.@) 
color(2);3 

mentxy(3.09,68.9); 

st= A 3 

strout(st); 

st=F ; 

mermout(st) 3 

strout(st); 

et= A ;3 

strout(st); 

m= Y + 

strout(st); 

me 5 3 

strout (st); 
strtxy(13.0,€9.8)5 

st= BASE : 

eerout(st); 

st= STATION ; 

strout(st); 
pertixy(27.8,82.0); 

st= ARC ; 

strout(st); 
strtxy(41.8,78.3); : 
eee= FILTER CORRELATOR ; 
Strout(st); 

strtxy(52.0,58.2); 


° 
’ 
9 
° 
, 
° 
9 
a 
9 
g 
e 
y 


st= PBAXK SURFACE 3 
strout(st); 
r= DATA Reonsn | 


meerout(st); 

strtxy(55.@,56.0); 

a TRACKERS } 

strout(st); 

strtxy(10.8,98.8); 

st= type = =S Continue, Tecaniques (of correlation), 
Parameters, Quit ; 

erout(st)s 

Strtxy(4.9,28.5); 

st= A brief overview of the entire system demonstrates the 
amount of complex machinery 3 

Berout (st); 

a PeMerecmuGmaccOmplish this survellence. Sigrals are 
recieved at the arrays ard are ; 
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strout(st); 

st= transmitted to the base station, then sent via satalite 
to the ARC. In the ARC the data ; 

strout(st); 

st= is then sent through filters and Scour cualor, where 
the computer establishes two sets ; 

Strout (st); 

st= of data (peak data files and surface plots). The peak 
data and surféce plots are ; 

strout(st) 

st= eer et ed Dame mUnectiorSmLOnadetermine any possible 
vessel tracks. ; 

strout(st); 

return; 


paesai{) { 
/* This display explains the techniaque used in 
the correlation precess */ 

emer “st,*sp; 

color(1); 

block(@.@,0.8@,102.0,1@@.0); 

color(4); 

block(2.9,9.9,128.3,99.2); 

olor (2); 

strtxy(12.0,98.2); 

st= type Continue, Formulas, Parameters, Quit ; 

strout(st); 

Sp= } 

molor (5); | 

st= STATEMFNT OF THE TECENICUF  ; 

strtxy(10.0,84.90); 

Eeeroutist); 

merout(sn); 

st= Given two SeUMeMcGecmOmetmme =Serilesudate; 2 function 
represents the ; 

strout(st); 

2 el ‘degree Of matce of the two time series as a function of 
adjustment of the 3 

strout(st); 

m= delay and of adjustment of the relative Doppler ratio 
between the two ; 

strout(st); 

@iseseries. The term coherent’ ”°, applied to this function, 
implies that 3 

strout(st); 

@eemtne melative phase evolutions of the time series are 
rade use of in ; 

strout(st); 

st= determining the eager Matehy rather than discarded 
as in an incoherent } 

strout(st); 

st= calculation. The time series of interest to us are 
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finite, discrete, ; 

strout(st); 

st= frequency-shifted, band-limited, complex tire series 

obtained from ; 

merout(st); . 

st= ‘passive sonar sensors (hydrophone arrays). ; 

strout(st); 

returns 


pic811() { 

/* This display illustrates the forrulas used 
in the correlation */ 

ener “st,™sps 

color(1); 

block(9.0,0.8,190.0,10@.@); 

color(4); 

block(0.9,25.0,198.2,923.5); 

color(2);3 

strtxy(1@. Z,98.2); 

st= type = => Continue, Techniques (of correlation), 

Parameters, @uit ; 

strout(st); 


2) 


--- aoe t= ty eT ie; 


} 
¥(a 
bey 
strout(sp)3 : 
st= 2) X°(n) = X (ar-(a-1)N/2) ; 
) 
; 
; 


t 
p i 
st= 3) A Nal) 2G 1a? Pct) crt / 1), 
eerout(st 

strout(sp) z 
st=" where X(a,t) is the modulus correlation cnefficient 3 


strout(st); 


st= ais the relative Doppler ratio compensation 3 
strout (st); . 

st= tis the delay compensation ; 

Strout(st); 

st= A is the normalization constart 3 


strout (st); . 
st= X and X are time series Sampled at time irntervels T ; 
Ber out (st ); 
st= Preacidmtcecdne  tnhescenter frequency of the 
passband for the time series ; 
strout(st); 
meroxy(5.0,56.4); 
st= 
strout(st); 
mmtxy(5.2,90.2); : 
st= 1 N-1 2lli(aFi-F2)n T 3 


— 
nh 
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merout(st); , 
st= A n=0 i 2 wlaas 
strout(st); 
strout(sp); 
st= 1 
strout(st); 
st= 2 
strout(st); . 
st= n=0 iL 1 m=0 2 any 
strout(st); 
vector (9.9,84.5,9.@,&8.2)3 
vector(15. a, Ba. 5 | 15.28,68.2 
vector(23.9,82.%,23.0,99.@ 
vector(6&.0@,82.9,68.%2,99. 2) 
brock(35.2@, 86. Treo. Os 86. 2 
vector(45. 3, 85, a. 4€.5,85. 
vector(45.9,8&5.3,45.7,87. 
vector(45.7,87.0.46.5,85. 
vector (64.5&,87.2@,66.%,87. 
vector (64.5,87.8,65.2,89. 
vector(65.2,89.0@,66.@,87. 
vector(51.9,90.2,53.%2,90. 
meetror(45.8,65.9,47.3,65. 
mector(45.8,65.0,46.5,67. 
vector(46.5,67.9,47.2,65. 
meaetor(52.2,67.09,59.8,65. 
merenor(57.5,65.9,58.2,67. 
vector(57.&,6&.4,59.2,65. 
vector(15.5,67.5,17.2,€7. 
meteor (15.5,67.5,16.¢,466. 
mector(13.5,65.¢,16.@,66. 
mector(13.5,6€5.0,17.9,65. 
vector(32.@0,67. oe Sie 
mector (32. Q.67,5.34, 0,66. 
mector(32.3,65.%2,54.9,66. 
meetor(o2.9,65.¢2,35.5,65. 
block(24.8, oe 4, 25, Be een 9 
vector (24.2, 87. 3. Elie 5. 87. 
vector(24.9,87.9@ 26 .2,85., 
vector(24.9 84.5,26. 2,85. 
vector(24.90,84.5,27. Ss B4, 
mee tor(71.7,65.0,75.2,35. 
vector(71.7 oe OP 6 q 37. 
vector(72.5,37.8,73.3,35. 
perky (4.0,22.5); 
color(2); 
Si= The vasic Commelatvyon Stmmeture can be seen in ecuation 
1 as the modulus of ; 
strout(st); 
st= normalized sum of products (with one series conjugated) 
of the time series } 
Strout(st); 
Seem ples. Ihe other two Equation rs are usec for delay end 
Loppler compensation ; 


WAU H GHANN VANNUSAVASONaggagart 
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errout (st); 

st= of the time series vrior to correlation. “& 
eoat(st); 
return; 


pics2() { 
/* This display shows the various parameters that 
can be altered to get a better picture */ 

char *st,*sp; 

color(1)3 

block(@.2,0.2,1@2.0,182.@) ; 

color(4); 

block(3.9,29.0,189.8,998.9); 

molor(2):; 

strtxy(1@.8,98.8); 

B= type ==> Continue, Techniques (of correlation), Quit 3 

strout(st); 

pm txy(16.0,25.8); 

a= Listed above are a few of the various parareters that 
can be 3 

Strout(st); 

2 es ‘adjusted DOmec ecu tenmiumcces Of the vessel, Other 
parameters } 

strout(st); 

St= are demonstrated tnrougnhout the tutorial and if the 
fomits are } 

eerout(st); b 

st= exceeded, the computer will adjust and notify you. ; 

merout(st); 

color(%); 

meetvor(435.9,76.90,51.5,7€.9); 

strtxy(20.0,89.0); 

a RANGES 

eerout(st); 

st= LONGITUDE 3G.20-58.9¢'3 

strout(st); 

f= LATIDUDE 152 .83-139.30'3 

strout(st); 

st= CORFRENCE LIMIT G.2-2.8'; 

strout(st); 

st= TRACK NUMBER 1-18 ; 

strout(st); 

st= RUN NUMBER 1-7 ; 

ee rout(st); 

st= REGION NUMBER 1-25" 

Berout(st); 

return; 


pic9a() { 
/* This display shows the user what kind of 
information he will receive wher he ectually 
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uses the system av 

exyar *St,cc,*sti,*sp; 
Bolor(1); 
block(9.9,9.9,190.8,100.@); 
color(4); 
block(@.@,29.8,102.0,90.@); 
color(2); 
strtxy(1%.0,98.3); . 
st= type = => Continue, Quit 
strout(st)}3 
color(5); 
strtxy(5.€,86.9); 2 
sti= RUN NUMBER 6 REGION NUMBER 6 TRACK NUMBER OC ; 
strout(st1); 
sp= ; 
strout(sp); 

* Shows the position, course, and speed of a vessel */ 


we ¢@ 


st= Water Time Peak Position Coordinates Courses 
strout(st)3 

St= 23-Feb-€2 Number Latitude Longitude Course 
strout(st); 

strout(sp); 

st= 14:58:03 Q 39.5802 147.5302 G.@ 
merout(st); 

st= 14:58:93 3427 CRA ia ee 07 142.6 
strout (st); 

st= 15:04:23 ESco 29.4682 VA De 15457 
strout(st); 

st= 15:14:32 3449 39.4212 147.4189 163.9 
strout(st); 

= 15:38:55 554 29.2582 147.4417 L6CrS 
strout(st)5 

st= 15:4&:44 5452 39.3989 147.4&15 LeCieG 
eerout(st); 

color(2); 

strtxy(4.2, 28.5); 

st= This data illustrates tne estimated position, course 


and speed of a suspected 
strout(st); 
m= vessel. Depending on how peers" the data is, the 
more accurate the estimated 
strout(st); 
St= position probably is. For example, the courses and 
speeds in the above display ; 
sirout (st); 
st= are relatively close together, thus the data is 
probably from a vessel. If the ; 
Bout (st); 
Mme courses Were 159.0, 135.6, 160.4, 122.7, 15@.5 then the 
data would probably be ; 
Emarout (st); 
st="from noise in the ocear.'3 
strout(st); 
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picgd() { 

/* Shows the reference stations and their tau and 

doppler values */ 

moar *st,cc,*sti,*sp; 
molor(1); 
block(2@.0,9.09,180.0,108.2); 
color(4); 
block(@.2,29.0,1200.%,98.2); 
color(2); 
mertexy(12.2,98.9); : 
st= type ==> Continue, Quit ; 
strout(st); 
color(5); 
strtxy(5.2,86.8); 


a RUN NUMBER 6 REGION NUMEER 6 TRACK NUMEER QO’; 
strout(st1); 
sD= ’ 
strout(sp); 
st= Receipt Time Peak  o-REF Station- -PPD Station- 
TS SSSoe Peak Data------— ; 
strout(st); 
st= 29-Febd-89 Number 2 TM/3é Treq SIM Freq 


Loa DOPPLER Gamma-Sq ; 
errout (st); 
strout(sp); 


St= 62:82:20 Q G 2.22 2 2.92 
eerout(st); 
st=" 15:16:15 3427 1323924 41.42 12229729 41.42 
meprout(st); 
st= 15:16:15 Z5BS 1322031 41.48 2411420 41.22 
strout(st); 
st= 15:33:19 3449 1323024 41.40 1322033 41.42 
memout(st); 
st= 15:53:23 Z54G 1322931 41.43 2411821 41.4¢ 
Berrout(st); 
st= 16:47:27 2453 1323025 41.408 1322¢3@ 41.42 


strout(st); 
color(2); 
mertxy(4.0,28.5); 
st= This data gives you the same peak numbers, the array 
Stations that received the ; 
mprout(st); 
Be= Sienals, the frequency of the signal end veak deta. The 
variances in the tau and ; 
eprout(st); 
moeeaoppler values can give evidence as to the validity of 
the track. The switching of ; 
Strout(st); 
Meeeee tau values from -416.7 to 27.3 to —-412.8 ect. means 
that the ellipsoids will =; 
strout(st); 
maeeprovably combine very well because the deta obvicusly 


is being collected at two; 
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strout(st); 

st= different sets of arrays. } 
Strout(st); 

return; 


pic9c() f 
/* Shows the Chi-square scores for the various data */ 
mmer *5t,cc,*st1,*sp; 
color(1);3 
block(9.3,9.3,108.9,190.9); 
color(4); 
block(@.2@,29.0,120.0,908.%); 
color(2); 
str try (10. @,98.8); . 
st= type = => COnvlnue,e.uit ; 
mmrout (st); 
eolor(s); 
strtxy(&.0,86.08); : 
a PUN NUMBER €& REGION NUMREP 6 TRACK NUMBER G9 ; 
strout (stl); 
=) ; 
strout (sp); 
st= Water Time peak Prod aac ogueate scores—= 
Becnt (st): 
st= 23-Feb-82 Nurber Score Stagewise Curulative 
srrout(st); 
strout(sp); 


st= 14:56:33 a 0.39¢ 0.2900 ¢ .2EGE 
strout(st); 
st= 14:58:23 2427 -1 .8¢ Doe 1. Cael? i 
strout(st); 
Sire 15:3:04:25 Sa -4 89 Geolee UeoLroe? 
strout(st)3 
st= 15:14:32 5449 -3.99 8.44192 Geog 
strout (st); 
mee 15358:¢5 L544 -4.66 1.4296 Z .24E? 
strout (st); 
st= 15:48:44 2453 -4.81 2.079E Cesena 


mErout (st); 

eolor(2); 

strtxy (4 RO 2e. 5 ) 5 

st= This data Shows the same peaks, their Chi Square 
probabilities of actual ; 

strout(st); 

20S ‘position, cmc heameesineqaresiduals. “The Chi Square 
Scores are broxen  ; 

strout(st); 

st= into two groups, SAicmeanciywuauvale score and tie cumula- 
Prve total. <A good =; 

Strout (st); 

m= check as to the PecvaidnyesOrwamecaetual contact 1s the 
curulative score, ; 

Prout (st) } 
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Bt= near 1.@ is quite good. ; 
strout(st); 
return; 


/* This display explains what a surface 
plot will look like and show. */ 


3 
block(@.2,@.@,100.2,1902.2); 
color(4); 
block(9.@,29.3,180.9,99.2); 
eelor(2); 
strtxy(14.2,98.8)3 F 
st= type = => Continue, Samples, Quit ; 
strout(st) 
strtxy(4.@ 128, oy 
m= By examining Meme OuO te uTe tracker Tay be abile 
mor see a pattern of peaks ’ 
strout(st); 
me that would establish a vessel “s track. Care must be 
taken when viewing the } 
strout(st); 
st= surface plot displays because Vis sme ot tne ares 
(range of latitude and longitudes) ; 
strout(st); 
St= cen de varied, thus Ceo acme meiewanice One Undaet 
when there might not be ; 
Strout(st); | 
st= one there. ; 
erout(st); 
color(7); 
mpoe(40.09,.45.9,71.5,7&.9); 
color(@); 
st= Region Number 6 ; 
Brtxy(5.2,72.2);3 
strout(st); 
St= Coherence Limits 1.2" 
Berout(st); 
aa 
= } 
strtxy(38.5,89.7)} 
me rout(snp); 
strout(st 
strout(sp 
errout(st 
strout(sp 
strout(st 
strout(sp 
st= 1 it ] ] 1 
strout(st); 
st= 4¢.0¢ ; 


) 
) 


e@e@~wo @O@ we we We we 


~e @ 
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meptiry(o2.5,75.7)3 

eeprout(st)s; 

strtxy(22.5,46.2); 

st= 38.39 --'; 

mrrout(st); 

strtxy(26.9,42. ees 

st= 147.22 145.98 ; 
merout(st); 

circ()3 

return; 


ct 
3 
™ 


circ() { /* Draws a surface plo 
Berean, 54 °D,*F "C,H, *J,*h,*Ls | 
m= 0 0 C 0° 20 0 0. 
a, 0 0 O 0 oO | 
= 0 0 0 0. 
= 0 0 0 
— 00 0 0 
a, o 0 0 oO. 
J= 0 0 0 
K= oo 0 0 0 0 
L= 0 0 0 0 
color(@);3 

strtxv(42.0,82.08);3 

strout(sA); 

errout(s); 

strout(D); 
merout (iF); 
ee out(G); 
ee) 
strout(J) 
Bertxy(4¢2.0,77.0)3 

@plwid(1); 

Bemout(L); 

serout(A); 

eeerout (a); 

strout(H); 

peer out(s); : 
strtxy(41.0,59.9);3 

dblwid(@); 

eeerout (DD); 

perout(X); 

eeout(L)3 

dblwid(@); 

color(4);3 
dDlock(39.9,7&.9,138.29,85.9); 
ume 0800850); 


co 


= 
a a = 
we e808 wevwe @OG We we we ~86 


’ 
? 
9 
€ 
4 
3 


picig1() { /*Draws another surface vlot sample */ 
soar «st ,*sn; 
color(1); 
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moc k(9.¢@,.@.@,1€¢.2,12¢.2); 

color(4);3 

block(9.9,29.8,1308.3,92.23); 

color(2);3 

strexy(10.9,98.0); . 

st= type ==> Continue, Samples, Guit ; 

strout (st) 

ao ; 

strtxy(4.0,28.5)}3 

strout(sp); 

St= This surface PLO OWoua Veta provable track, oolnted 
to by the arrow. ; 

strout(st); 

St= Because the size of the plot is relatively small (62 
miles square) and the ; 

strout(st); 

st= coherence limit is relatively high ( 1.9 }, this is 
probably a track of @4 ; 

strout(st)3 

st= vessel and should be further investigated. ; 

mrrout(st); 

color(7); 

prego k(42.2,45.0,71.5,7&.9); 

color(@); . 

st= Region Number 23 ; 

eet xy(5.0,72.9);3 

Strout(st); 

st= Coherence Limits 1.@ 3 

Becout(st); 

ae 

So= } 

strtxy(3@.5,89.7)3 

Eprout (sp) 

strout(st 

rout (sr 

merout(st 

strout(sp 

Berout (st 

strout(s 

a= i i 1 1 1 

strout (st ) 

m= 29.00 

mer teey (22. 5,75.7)3 

mernout (st); 

strtxy(32.5,4 46.2); 

St= 28.02 --"; 

Berout (st); 

strtxy(36.2,42.7); 

a 147.29 i4Gee? 

eerout (st); 

morc (); 

molor(?); 

block(58.4,89.9,51.2, ce 3 

meetor(5¢2.7,.79. a 49.4,83.¢)3 


| 
’ 
g 
* 
y 
3 
y 
y 
e 
y 
® 
9 


a 
)§ 
) 
)5 
) 
P) 


we 


° 
y 
a 
y 


Heo 





meetor(52.7,79.0,52-4,83.@); 
return; 


eerce() f{ /* Drawing a surface? olct */ 
char ny; 

emer “Sp,*St; 

fear A,*S,*T TE ,*G,*H, ed x Ls 

p= ; 
A= 0 0 
$=" 0 0 0 


© 
oO 
Oo 
Oo 
© 


Oo 
oO] 
© 
Oo 
oO 


F=" 0 0 0 

a= oc 0 0 

E= 0 0 0 0 
J=" ne 0 

—— oO 0 O C 0 
L= 0 0 e 
color(2); 

pertxy(42.¢,82.¢2); 

strout(A); 
strout(s 
strout(D); 


« e 
“*®e@ we we We WE 26 we We we 


ee ~38e we ®t we we we 


Ww 
c+ 
= 
oO 
= 
+ 
ae 
cus 


ee (47. eZ 2!) 
dblwid ( 
Sr ou t ( 
eeerout ( 
strout ( 
errout ( 
Ser out ( 
pert xy ( 
dblwid( 
strout ( 
strout ( 
strout ( 
dbiwid(: 
strtxy (4 
strout ( 
eerout ( 
eerout(s 
eapout (C ) 
strtxy(4%.9,76.3)3 
eeppout (GC); 

Bmrout(S); 

erout (A); 

pert xy(40.0,75.@);3 
dblwid(1)3 

strout(%)3 

emrout(Fr); 

strout(#); 


we “*®@ we 


~~? “#*®e8 we 


G,59.9); 


“*®e~wewe @e 


@,72.08); 


AOMROU AUS ATE > oF: 


e 
9 
9 
° 
y 
; 
° 
$ 
e 
’ 


io 





strout(L); 
st= Oo ; 
strtxy(47 
strout(st 
strout(st 
strout(sp 
t 
p 
t 
t 


OM 
nw 
Q 


etrrout(s 
strout(s 
strout(s 
strout(s 
color(4); 
dblwid(@); 

plock(39.@,7&.9,19@.€,85.@)3 
ne 0890 2 8 «BS .2); 


We “20 *@0 20 wae “Of ce Q 


) 
) 
) 
) 
) 


mieli() { 

/* This display shows the covariance matrix ard then 
asks the user if he wishes to move on to the 
Sonarwomoneret?o the tutorial */ 

emer *st,cc,*stl,*snp: 

polor(1); 

mrock(¢.0,0.2,190.¢,100.0); 

color(4); 

block(2.2,29.9,190.3,93.2); 

molor(2); 

strtxy(12.9,98.8); : 
st= type Continue, Senario, Tutorial (again), Cuit 3 
strout(st); 

strtxv(5.9,88.08);3 

moror(5); 


so l= PUN NUMBER € REGION NUMBER 6 £TRACY NUMEER Q $3 
eerout(sti ); 
=e, 
St— Water Time et ee SS COTARIANCE 
MA TRI y--------------- °; 


erout (st); ; 
st= 25-F2b-8&@ Number } 
strout(st); 
umeky(5.5,75.0); 


st= 14:58:22 e427 GGe VES G .2CC3¢ 
strout(st); 

st= 9.208022 of yoCccee 

strout(st); 

st= -G .GS15O 0. OCLC? 

Strout (st); 

st= G9 .CBGAaP —~4E .497E5 


Perout(st); 
strtxy(5.5,49.3) ; 


st= 15:04:22 3532 @.@g9R85 @.22247 “3 
emout(st); 
st= 3.38247 2.211487 


Peerout(st); 





st=. 3.20551 3.20178 

strout(st); 

st= -2 .A2SA1 Geode ty 

errout(st); 

eolor(2); 

mertxy(4.2,2&.5); 

strout(sp)3 

st= Pirsmolep dy ariustrates the cOvariance matrices which 
Can be used to 3 

strout(st); 

st= determine how cfecUrapeom mene atimatved courses and speeds 

are. An experierced ; 

streut(st); 

st= tracker could determine this by examining each 4 X 4 
matrix, however this is ; 

strout(st}; . 

st= difficult and thus will be handled by the corputer. ; 

strout(st); 


return; 


pici22() f{ 
/* This subroutine draws another surface plot */ 
emanr “Sst, *sp; 
color(1)}3 
block(@.@,0@.0,10@.@,10@.@); 
color(4); 
block(2.9,29.9,129.23,93.2); 
molor(2); 
strtxy(10.@,98.9); , 
st= tyve ==> Continue, Sarples, Quit ; 
mrrout(st); 
molor(’); 
moc” (40.2 ,45.¢0,71.5,78.3)3 
color(@)3 
at pecion Number Z 3 
Smrtxy(5.0,72.9); 
strout(st)} 
st= Coherence Limits @.7'3 
strout(st); 
> 
Sp= } 
strtxy(38&.5,82.7)} 
mpout (sp); 
Eerout(st 
strout(sn 
Peemout (st 
strout(sp 
Strout(st 
strout(sp 
st= 1 
strout(st); 
st= 42.00 3 


) 
) 
) 
) 
) 
) 


we We we @we we St 


— 
~— 
te 
-—~ 
2e 
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peer (52. 5,70. 7); 


et rout(st)? 
strtxy(é2.5,46. eas 
st= 33.990 -— ; 

Me entist); 
met xy (56.0,42.7); 
st= 147 .a@ 
morout (st); 
color(2); 

eeerc (); 
circ2() 
circ3() 
return; 


® 
9 
° 
’ 


circ3() at 


char *Q,*¥,*E,*2,*T} 


O=" 00 0 


W=" oe 6 0 0 


a= 0 Oo 


R= 0 Ore 


m= 0 O 0 
strtxy(4 
color(@) 
aerout(? 
strout(W 
strout(® 
strout(R 
eerout (T 
strtxy(¢ 
strout(EF 
Ear out ( R 
eerout(?f 
strout(E 
strout(R 
dblwida(i 
strout (W 
strtxy(4 
Errout(T 
Serout (0 
W 
W 
i) 
4 
¥ 
W 
ie 
ie 
P 
g 
) 
9. 
dis 


strout 


strout ( 
strout ( 
strout ( 
dblwid ( 
color(4 
Bock (3 : 
boc k( 7 : 
return; } 


2, 

13 
ies 
)5 
3 
\3 
Q. 
)5 
15 
)5 
3 
My 
5 
3; 
2.2 
Ms 
); 
ys 
3 
)5 
i 
15 
Ve 
18 
)5 
3 
ies 


oO, 0G. 
o,44. 


as e . 
se e a se 
~we~we We we we 


oon. 


9,81.2); 


5 ae 


OLS Tos 


%,122.9,85.8); 
@,120.2,85.2) 
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J*PHRHSHHHEHREHHHR HHH RHR EHR HHH HK RRR HHH HR HR RRE HEHE RHR EB 
# This section of code@ is designed to give the user prac- # 
# tice visualizing the types of data that will be vresented# 
mein the actual tracking. It is basically set up to run 

# four types of data depending on the parameters that the 
Beuser tries to use. Bech display gives the examples and 
# then tells the user what the problem areas might be, if 
# there are any. This is tne fifth section of the main 
feoaoeram out can be called up by itself by typing Senerio # 
HHHHHHHHAHHRRHHHHRHHHHRHR RAH RR RAK HHH RHR RHR RHR RB / 


th RH He tH tH 


mmc nOi1ce,cont ,run,revion,track,coher,lath,latl,longh,loral; 
mmare~srun,*sregion,“stracz,*scoher,*slath,*slatl,*slongn; 
meagan, >, M Oo SW TE ER, FT “Y,*slonel ,*top; 
/* Setting global values because they are used in 
many of the displays a 


main() { /* Senerio section of program */ 
@nar cc; 
ramtek(); /* initializing the Ramtek subroutines */ 
writon(1); 
changcolor(); /* Establishing a new color table */ 
Bolort(1e); . 
top= ‘type==>Menu, Location, Peak, Recuracy., ourface, Quit ; 
/* Setting a global strirg that gets disrlayed at the 
top of the majority cf the displays ca 
mont=1; =| 
specion= 10 ; 
Seun= € 3 
strack= ie } 
scoher= SO 
slath= oo. 45" 3 
met i= 35.00; 
Sroneh= 125.45 ; 
sSlongl= 125.@¢ ; 
senm()$ 
while (cont==1) { /* while #1 */ 
cc=retchar(); 
Beaen(cc) { /* switch #1 */ 
/* Switching of the displays @cependent on the desires 
of the user at the keyboard ao), 
case “m’s /* displays the menu */ 
senm(); 
break; 
case ee /* displays peak data */ 
aR 
break; 
case “l’: /* displays positional data */ 
senl(); 
break; 


/* {nitializing global values */ 
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/* displays the accuracy data */ 
a /* displays the surface plots */ 
/* Return */ 


default: 
cont=1; 
} /* end of switch #1 */ 
} /*® end of while #1 */ 
} Ps iod of Main */ 


senr() f{ /* This display presents a menu of parameters 
that can be altered by the user to get a 
better view of the situation */ 

emar *st,*sDp; 

color(7); 

block(3.3,2.3,199.9,1398.93); 

molor(1g); 

block(@.@,98.8,180.2,180.08); 

molor(5); 

strtxy(10.0,97.2); r 

st= type in the desired mumbers or zeros. ; 

strout(st); 

strtxy(€.0,8€.2); 

st= Tiere wc mum Den NOt parameters that you can change 

meesurvey different tracks, ; 

strout (st); 

maeerids, and regions. The limits are listed alone with the 
present value of the ; 

strout(st); 

meeeperdmeter, When the block appears to the right of the 
present value, just type ; 

strout(st); 

mien the value desired followed by <cr> (if the present 
value is okay tyre 9% <cr>). ; 

strout(st); 

SpD= ; 

strout (sp); 

strtxy(15.¢,58.08); 

st= EiMit. PARAMETER PRESENT VALUE 

NEW VALUE ; 
peamout (st); 
strout(sp); 


Si 1-25 REGION [ 
strout(st); 

st= 1-7 RUN : 
eerout (st); A 

st= 13 TRACK ’ 
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strout(st); 


at @.1-2.2 COHERENCE ; 
strout(st); 7 
st= 30.66-50.00 LAD eth eh } ; 
etrout(st); 7 
ae= 30. .. ~52.20 LATITUDE(low) 


strout(st); 
St= 120.00-140.0¢@ LONGITUDE( high) 
Strout (st); . 
st= 120.00-140.0¢ LONGITUDE (low) ; 
eeont (st); 
Parexy(57.2,48.5); 
Strout(sregion);/* Prints out present values of parameters*/ 
strout(srun); 
strout(strack); 
( 
( 
( 


~~. @ 


) 
strout(scoher); 
strout(slath); 
strout(slatl)3; 
strout (slonegh) 
strout(slonel ) 
newval(); pomceuesatne suoroutine thet checks the 
values being inserted by the user */ 
senma(); Vrecarls for a new display */ 
if (coher<=07) {f{ /* Establishes what set of displeys will 
be presented based on the values that 
were just inputted by the user */ 
if ((lath-latl) <= 13@) 
choice="c’; 
else 
choice="b°; 


€ 
9 
° 
9 


else f 
mom (lath=latl) <= 180) 
choice="d"5 
else 
choice=’a‘3 


senma() { /* This displays the basic parameters and ther 
@€llows the user to continue, quit, or change 
the parameters. oy 

emir “Sp,cc,*st; 

color(7)3 

block(@.0,@.8@,102.2,100.0); 

color(1@); 

block(3.0,99.8,190.3,193.0); 

eoror(S); 

emerecy (5.0,97.0); 

Emcout ( “type = continues Menu. Guit ); 


$p= 
strtry (25.0, 60.2)5 
st= RUN NUMBER ; 





etrout(st); 
strout(sp); ; 
st= REGION NUMBER ’ 
Berout(st); 
strout(sp); . 
st= TRACK NUMBER ; 
Perout (st )} 
strout(sp)3 : 
st= COHERENCE LIMIT ) 
strout(st) 
Be= 2; 
while (cc=='2z") { 
cc=retchar(); 
switch(cc) f 
ease “c’: /* Continue */ 
senl(); 
preak; 
case “m’: /* displays the menu */ 
senm(); 
break; 
Base a: (eit cc / 
pston(); 
break; 
metrault: 
cc=°2 "3 


pstop() f{ /* This display is presented anytime the user 
types “q’ ard then finds out if he really 
wants to quit. 7) 

emar *st,*sp,cd; 
color(3); 
block(2.9,0.0,109.2,1092.2); 
color(2); 
sD= 

strtxy (46. @,23.3); 
st= DO YOU. ’ 
strout(st); 
strout(sp)3 
MEREALLY 3 
strout(st); 
strout(sp);_ 

st= WANT TO° ) 
Beat (st); 
strout(sp); 
st= RETURN TO ; 
eereut(st); 

strout(sp); 
strout( THE MAIN ); strout(sp); 
strout( "PROGRAM? a 

mo (y /n) $ 





strout(st); 
Eeretchar(); 

if(cb==“y') f 

cont=@; /* Sets global value to quit senario */ 
color(@); 

block(@.2,@.0,10@.2,180.2); 


else 
serl(); 


newval() f /* This subroutine receives the inputs of the 
user for the changing of the parameters, 
evaluates them, rejects any that exceed 
the limits, and then inserts decimal points 
where necessary. ae J 
Mmmm rconer, tregion,trun,ttrack,tlatno,tlatl,tlongh,tlongl; 
t=; 
while (t==2) {f{ 
peor (15); 
Peock(73.0,45.0,88.€,50.0);3 
strtxy(74.2,49.2); 
color(5); 
tregion=getnum(10); /* changes the region number */ 
if (tregion != @) f{ 
if ((tregion <= 25)&&(tregion >=1)) { 
itoa(sregion, tregion); 
region=tregion; 
t=1; 


else 
t=2; 


else 
t=1; 
} 


t=; 
while (t==¢) f 
eovor(15); 
ook ( 72.0,59.5,86.0,45.¢); 
strtxy(74.0,43.2)} 
color(5); 
trun=getoum(1@); /* changes the run number */ 
mee trun!=2) 
1f ((trun<=7)&&(trund=1)) { 
itoa(srun,trun); 
run=truny) 
t=1; 
} 


else 
t=; 


else 





t=1; 
} 
t=2; 
while(t==@) f 
color(15); 
block(73.2,34.3,8&.%9,39.9);3 
strtxy(74.8,38.8); 
color(5)3 
ttrack=getnum(12); /* changes the track number */ 
if(ttrack!=@) {f{ 
if((ttrack<=1@)8&(ttrack>=1)) f{ 
ftoa(strack,ttrack); 
track=ttreck; 
t=1; 


else 
t=2; 
} 
else 
t=1; 


t=d; 
while(t==0) { 
motor (15); 
beeen 75.0,.27.5,88.¢,35.5); 
strtxy(74.0,33.2); 
Bolon(5); 
tcoher=getnum(1@); /* changes the ccherence limit */ 
mreitcoher != @) 
if ((tcoher<=29)S8&(tcoher>=01)) f 
itoa(scoher,tcoher); 
coher=tcoher; 
scoher [4]=scoher([3]3 
scoher [3]=scoher([2]; 
scoher[2]=".°3 /* inserts a decimal voint */ 
t=1; 
} 
else 
t=d; 
} 
else 
t=1; 
} 


t=@; 
while(t==3) { 
color(15)}3 
block(72.@,23.0,88.8,28.@)} 
omit, (74.2,28.2); 
color(5);3 
tlath=getnum(10); /* changes the high latitude value */ 
if(tlath!=2) 
if((tlath<=5@a@@)S4(tlath>zaeg)) f 
ieega (Slath,tlath); 
lath=tlath; 
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cath 6ol=slathtal; 
Meee i de: 
elathl4i=slathis|; 
mithici= 2. 7 7s inserts a decimal point */ 
t=1; 
} 
else 
t=d; 
, 
else 
t=1; 
} 


t=2; 
while(t==2) { 
color(15);3 
block(72.0,17.5,88.8,23.5)}3 
mome xy (74.0,23.35); 
eoror(5)>; 
tlatl=getnum(1@); /* changes the low latitude value */ 
edt latl!=0) 
if((tlatl<50@0)&&(tlatl>=3900)SS(tlatl<tlath)) f 
/* Makes sure that latitude low is less than the 
high latitude a7, 
itoa(slatl,tlatl); 
latl=tlatl; 
ie} fe) mete tt tS]; 
eet! (Sl=sletl(4]; 
slatl [4]=slatl(Z]; 
elatl(3]=".°; /* inserts a decimal point */ 
t=1; 
} 
else 
t=2; 
} 
else 
t=1; 
} 


t=2; 
while(t==0) { 
@olor(15); 
pmoek(75.0,12.2,88.0,18.2)} 
strtxy (74.0,18.8); 
color(5)}3 
tlongh=getnum(12); /*Changes the high longitude value*/ 
if(tlongh!=2) 
if((tlongh<=14902 )&&(tlongh>122@¢9)) f{ 
itoa(slongh,tlongh); 
lorngh=tlongh; 
slongh [6] =slongh [5] 3 
Slongh{5]=slongh(4]}3 
slongh[4]=slongh[Z]3 
Slongh(3]=".°; /* inserts a decimal point */ 
t=1; 
} 


else 


t=3;5 
while(t==0) f 
eovor (15); 
mock (75.0,5.5,68.0,11.5);3 
strtxy(74.0,13.0); 
color(5); 
tlongl=getnum(12); /* changes the low longitude value */ 
if(tlongl!=¢) 
if ((tlong1<=1498@ )&&(tlong1>=12000 )&&(tlongl<tlongh)) f{ 
/* Makes sure that the value of low longitude is 
less than that of high longitude ie i 
itoa(slongl,tlongl); 
longl=tlonegl; 
slong1 [6] =slongl [5];3 
slong] (5] =slong1 [4] ; 
eelonel (4) =slonzl [3]; 
SlongliS]=".°; /* inserts a decimal point */ 
t=15 


itoa(ptr,no) /* This subroutine changes an interger 
into a string of characters */ 

emar “ptr; 

mot no; 


eae | OK; 
if((X=no/19%) != @) 
ptr = itoa(vtr,X); 
*ptr=no + “O°; 
aoe t r = “\E i? 
meee Ptr 


senp() { /* This displays the peak data */ 
char *st,*sp; 

color(1)}3 

block(9.9,%8.9,1889.9,199.0); 

eavor (4); 

block(@.%,15.0,198.8,98.0); 





color(2); 
strtxy(1@.0,98.8); 
strout(top); 
color(5); 
strtxy(5. @,86.8); , 
st= RUN NUMBER 6 REGION NUMBER & TRACK NUMBER 9 ; 
strout(st) 
5p= ; 
strout(sp)3 
st= Receipt Time Peak -REF Station- -PRD Station- 
------ Peak Data-~--- ; 
strout (st); 
St=  20-Feb-8@ Number STM/EM Freq SoM ce Freq 
TAU DOPPLER Gamma-Sq ; 
strout(st); 
mout(sp); 
switch(choice) f{ /* There are four possible sets of data 
can be displayed dependent on the 
various limits set by the user */ 


case “d’: 

st= @8:02:22 g G 8.26 G 0.0d 
strout(st); 
ee 15216:15 5427 1523924 48.72 1222029 48.7@ 
strout(st); 

Sie) 15316:3:15 Sao 18220631 48.72 2411220 48.72 
strout(st); 

st= 15:33:19 5449 18235024 4&.7@ 13229050 48.723 
strout(st); 

Se—= 1 5:3:50:25 5944 13220631 48.72 2411@21 48.72 
strout(st); 

st= 16:07:27 4453 13269025 452370 142273590 45.762 
strout(st); 

st= 16: oa: oat 5421 1322032 4&.7@ 24112320 4&.73 
strout(st); 

st= 16:99:56 5479 1623224 48.73 12220351 48.76 
strout(st); 

st= 16:11:44 2429 1222031 48.72 2411¢@23 48.76 


strout(st); 
strtxy(4.0,12.2); 
st= GOOD TRACK WITE TWO SETS OF ARRAYS SWITCEING BAGK ANT 
FORTH TO PROVIDE DATA. ; 
strout(st); 
SeOHOTICE TUE TAU VALUES “ALTERNATING ) ; 
Samout (st); 
preak; 
case “a’ 
Se 16252256 g G 48.72 @ 48.708 
strout(st); 
st= 16:52:56 “2542 1333631 48.74 1546@24 48.72 
Strout (st); 
Sm— 16:55:57 5478 1533@41 48.7¢@ 1346251 4&.7¢4 
strout(st); 
st= 16:58:12 3548 1333027 48.723 1346028 48.72 
Serout (st); 





st= 16:59:19 
strout(st); 
St= 17:03:82 
strout(st); 
a= 17:05:56 
Strout(st); 
st= 17:29:42 
strout(st); 
st= 17:11:48 
Ear out(st); 


strtxy(4.0,12.0); 


Sa? 
2461 
SE40 
waee 
$5535 


1a2e10 7 
1585@E4 
1535851 
1é22114 
1533029 


48.70 
48.76 
48.70 
48.73 


48.70 


2411321 
1246921 
154E@S9 
2411324 


1746042 


42.79 
48.79 
42.76 
48.70 


48.702 


st="NOT MUCH ALTERNATING OF ARRAY PAIRS, THUS PROBABLY NOT 
TOO COOD A TRACK."$ 


strout(st); 
dvreak; 

case “b’: 

See 213S6:¢4 
strout(st); 
st= 21:36:44 
srout(st); 
st= 21:37:89 
strout(st); 
mie clsor:52 
strout(st); 
st= 21:38:28 
strout(st); 
st= 21:39:41 
strout(st); 
st= 21:48:82 
Strout (st); 
st= 21:48:58 
strout (st); 
st= 21:41:44 
eerou, (st); 


Smuxy(4.0,12.¢2); 


g 
24112351 
2412034 
2411041 
2411058 
2411256 
2411928 
24119021 
2411355 


48.70 
48.702 
48.79 
48.78 
4&.70 
48.79 
428.70 
4&.7¢2 


48.70 


g 
1441024 
14429¢€7 
1441828 
1441921 
1441¢2¢5 
1441926 
1441924 
1441¢18 


St= NO SWITCHING OF ARRAY PAIRS, YFT THERE IS A LOT 


VARIANCE IN 


remount (st )3 


THE TAU VALUES, ; 


st= THUS A VERY POOR TRACK."$ 


Sprout (st); 
break; ; 

Geoe Cc : 

ae 76:°12:357 
strout(st); 
So) ) 96:12:37 
strout(st); 
oye 203135:25 
strout(st); 
st= 26:14:83 
strout(st); 
St= 26:14:57 
strout(st}; 
st= 46:16:32 
Semout (st); 


g 
1541821 
1834261 
13419866 
1834275 


1341028 
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46.70 
48.72 
48.79 
48.78 
SOeg 


48.70 


2g 
a? 2eoD 
2457201 
1472341 
2437809 


1472655 


4E.72 
4E.79 
48.708 
46.70 
4&.72 
48.72 
4E.7¢ 
4&.73 


48.72 


OF 


48.79 
48.70 
4£.70 
48.72 
48.70 


42.70 





St= 06:17:29 ZZ64 1341225 48.70 1472351 48.72 
strout(st); 


st= @6:18:54 33518 1834268 48.70 24357825 48.72 
strout(st)s; 
St= @6:20:21 3343 1341329 46.70 147236€8 48.76 


strout(st); 

pe xy (4.0,12.0); 

st= FAIRLY GOOD SWITCHING OF ARRAY PAIRS BUT WITHIN AN AFRAY 
PAIR THERE IS TOC MUCE ; 

strout (st); ; 

st= VARIANCE DUE TO THE LOW COHERENCE LIMITS. ; 

strout(st); 

break; 


} 


senl() { /* This subroutine displays the position, 
course, and speed of the contact */ 

char *st,*Sp; 

color(1); 

block(%.@,@.0,180.2,189.0) ; 

color(4);3 

block(0.%3,15.0,190.9,90.9); 

color(2);3 

strtxy(1@.2,98.0); 

strout(top); 

color(5)} 

strtxy(5.0,86.0); 


a= RUN NUMBER 6 REGION NUMBFE 6 £TRACK NUMBER 9°; 

strout(st)i 

Sp= 

strout(sp)3 

st= Water Time Peak Position Coordinates Courses and 
Speeds } 

strout(st); 

st= 23- Feb- 8S Number Latitude Longitude Ceurse 
Speed 


Strout (st); 
strout(sp);3 
Switch(choice) f{ 
we Displays one of four possible sets of data */ 
case ‘a’: 


st= 16:52:56 g 38.502@ 142.52@e¢ g.¢ 
strout(st); 
st= 16:52:56 3542 58.4731 142.4873 142.90 
strout(st)i 
16255337 S478 58.4422 142.4791 PSO 26 
strout(st); 
st= 16:58:12 4548 568.4431 142.4762 aw wo 
Biamout (st); 
st= 16:59:19 555 7. 48.4421 142.475¢ 15€.4 
strout(st); 
St= 17:03:82 3461 58.4324 142.4775 156.8 


Srrout(st); 





st= | 17:05:56 3642 38.4246 142.4€89 144.7 
strout(st); 


st= 17:09:42 2582 28.4263 142.4663 oece 
strout(st); 
st= 17:11:48 SD G6 38.4221 142.4572 149.7 


strout (st); 
as Ci e.o ) 5 
POSSIBLY A GOOD a BUT THE SIZE OF TEE REGION BEING 
BOVERED IS a LITTLE 
aE 
"TOO LARGE TO GET A REAL GOOD PICTURE OF THE SITUATION. 
Mont (st); 


break; 

case “b’: 

St= 21:36:04 g 56.5002 143.52828@ Z.d 
strout (st); 

st= 21:56:04 5564 56.4784 142.6534 20.5 
strout(st); 

st= 21:27:29 Soce 56.5348 143.5739 934 .E 
strout(st); 

et | 21:37:52 rr 36 .57&2 143.493€ 925.9 
strout (st); 

st= 21:38:38 5564 SeeOlo 145.4467 Gila es 
ee ts) 

st= 21:39:41 Bea)! Coe omL 7 142.4052 O05 so 
strout(st); 

St= 21:40:92 3554 See66C8 14333701 014.7 
strout(st); 

st= 21:42:58 5534 SCnCeoo 146.3485 Gitsrer 
strout(st); 

st= 21:41:44 5547 SGnctoc Pe SOcOo Dior 


Serout (st); 

Sertxy(4.0,12.2); 

st= POOR TRACK AS SEEN BY THE COURSE AND SPEED CHANGES, 
PROBABLY DUE TO THE'3 

strout(st); 

St= LARGE AREA AND THE LOW COHERENC LEVEL. 3 

mrmeut (st); 


break; 

case “c’: 

= 96212237 g 55.5806 145.50@2 g.¢ 
Strout(st); 

Str= ) V6:12:37 Boe 5 05-4734 145.5398 228.4 
strout(st); 

st= 06:13:25 5342 35.46E9 145.5402 Zea 
strout(st); 

Sst= 66:14:03 2594 335.4502 145.5692 243.5 
strout(st); 

st= @6:14:57 bocr 54.4294 145.5728 227.9 
strout(st); 

st= 36:16:32 5319 SouOer © 145.5829 Lele 
strout (st); 

st= | 26: 17:29 2SE4 Soo De ras 5962 ee Dr 


Sprout (st); 





St= 06:18:54 3318 33.3329 145.6036 223.4 

strout(st); 

St= 06:28:21 3342 23.2185 145.6285 242.3 

strout(st); 

strtxy(4.0,12.8); 

st="EVEN THOUGH THE COURSES ARE FAIRLY STEALY, TEE SPEEDS 
ARE FLUCTUATING '; 

strout(st); F 

st= GREATLY DUE TO TEE LOW COHERENCE LIMIT. 3; 

strout(st); 


break; 

case ads 

st= 14:58:93 Q 39.5026 147.592¢ 0.2 
strout(st)$ 

st= 14:58:23 2427 39.4711 147.4707 142.2 
Strout(st); 

st= 15:94:23 2oCo 59.4682 147.4552 15ar7 
strout(st); 

Se= 15:14:3¢ 5449 39.4212 147.4189 1eS20 
strout(st); 

pep 15368355 2540 o9.2582 147.4417 LEG 2s 
strout(st); 

st= 15:48:44 34535 59.398¢ 147.4815 re dare 
strout(st); 

Sor 15:49:31 S421 59.4821 147.4729 162.4 
strout(st); 

Ser= 152350:56 2479 49.4219 147.4622 L607 
Strout(st); 

py 15 252:54 2429 39.4837 147.4297 1 Gaee: 


strout(st); 

strtxy(4.2,12.8); 

st= A VERY GOOD TRACK WITH STEADY COURSZS AND SPEEDS. 3 
strout(st); 

break; 


} 


sena() { /* This subroutine displays the Chi-Square 
scores for various sets of data */ 

char *st,*sp; 

color(1); 

block(2.0,0.8,100.@,182.0); 

color(4); 

prock(2.9,15.3,192.0,99.9); 

pover(c); 

strtxy(18.8,98.0)3 

Strout (top); 

color(5); 

amex y(5.0,86.0);3 

st= RUN NUMBER 6 REGION NUMBER 6 TRACK NUMBER S$ 

strout(st); 


sp= ; 
Strout(sp); 
st= Water Tire peak Prob -Valsosoucre scones —— 





Meas Residuals 3 


strout(st); 


St= 23-Febd-a8@ 


Deltat 
strout(st); 
strout(sp)}; 


switch(choice) 
/* Displays one of four 


case “d°: 

st= 14:58:03 
strout(st); 
st= 14:58:82 
strout(st); 
st= 15:44:23 
strout(st); 
st= 15:14:30 
strout(st); 
st= 15:28:35 
strout(st)$ 
st= 15:48:44 
strout(st); 
st= 15:49:31 
strout(st):; 
ge 15350356 
strout(st); 
a 15352:34 
strout(st); 
strtxy(4.3,12. 


Number 
Deltaf 


{ 


o427 
COOO 
3449 
55408 
2453 
5421 
5479 


5429 


2); 


Score Stagewise Cumulative 


possible sets of data */ 


8.30 J. 9808 2.2802 
Snel Ore tak Oeor 71 
-4.&9 @.¢162 0.1667 
-5.99 0.4414 Veo s 1 
esniss 1.4096 2.2460 
eek Zon ° Cee52 7 
sae 1.8945 2.8892 
=a50o 2.9838 eee ant 
—-4.89 eee 0.9482 


st= OUTSTANDING CUMULATIVE QCORE Bi Joe PEaay TIME PeRIOL, 


THUS A VERY GOOD TRACK. 


eerout (st); 
break; 
case “a 
See 916252356 
strout(st); 
fe «16 352:56 
strout(st); 
st= 16:55:37 
strout(st)} 
st= 16:58:12 
strout(st); 
st= 16:59:19 
saenout (St); 
st= 17:03:82 
eenout (st); 
te 1 7295:56 
strout(st); 
st= 17:99:42 
strout(st); 
st= 17:11:48 
strout(st); 
strtxy(4.9,12. 


o 
° 


st= THE CUMULATIVE 


SCORES IS 


3); 


’ 


@.20 0.2080 G.C89?2 
-1.49 0.1455 C2455 
Seater Ga2og Ce oo 
eee Oe Sege 8.3829 
le 9.6547 G.4692 
=e .06 ieee} Ceo 
Sie bezorl G .6501 
me 00 oroees 0 .E€928 
= ole OO Goze C0520 


SCORE, _ FAIR BUT NONE OF THE INDIVIDUAL 
REAL HIGH. 





strout(st); 


break; 

case “bd: 

mt 21°2566:04 Z 2.22 0@.22a@ @.0000 
strout(st); 

mp 21256 304 3563 -2.92 ®.1021 0.14021 
strout(st); 

eee 21307399 Sse —-1.43 6.2441 Ueaeioe 
strout(st); 

st= 21:37:52 3571 -1.78 Q@.3417 @.2638 
Bieeut (st); 

mee 1 3082368 5564 -1 .93 Cis lige 0.4173 
strout (st); 

st= 21:39:41 555 |: -2.06 0.6814 0.4228 
strout (st); 

st= 21:42:92 5554 “2.54 4.4027 ZG .4458 
strout (st); 

ge ei 3409358 S584 =2 400 Cecolul 9.46387 
strout(st); 

st= 21:41:44 3547 -2.21 Oo onee 8.4528 


strout(st); 

strtxy(4.0,12.0); 

St— VERY LOW CUMULATIVE SCORE AND THUS A VTRY POOR TRACK. 3 
strout(st); 


break; 

case “c’: 

st= 96:12:57 @ Q.2¢ Q.2089 2.3530 
strout(st); 

st= 96:12:57 Saco =e 6.2154 @.2154 
strout(st); 

eepeeeco315:25 2342 =a G.4527 0.2468 
strout(st); 

st= @6:14:@6 2394 ere %.5621 8.4743 
strout(st); 

st= 06:14:57 oe aes oh G De Coo 4.6411 
strout (st); 

Ses 16:52 Sog Cee G.62ce CG eac 
strout (st); 

SeewcG si? 329 3364 = 2556 Co eel O70 Se6 
strout(st); 

st= 96:18:54 5518 sree @.9443 @.7836 
strout (st); 

st= 96:29:21 23438 “2.74 9.9218 Oates 


strout (st); 

strtxy(4.0,12.08); 

ot="PAIR CUMULATIVE VALUES BUT LOW INDIVIDUAL VALUES DUE TO 
LOW COFFPENCE LIMITS. 3; 

strout(st)s 

break; 


} 


sens() { /* This display presents surface plots */ 
char *st,*Sp) 
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neue) OO 3 
N= Oo 3; 
B= 0 O : 
We On0 0 0 go 
= 0 00 O C oO 5 
=" O 0 0 ae 
= 0 0 aaad 
=" 0 0 0 ’ 
color(4); 
block(@.0,0.8,190.0,199.3); 
color(1);3 
block(@.0,0.0,130.9,15.2); 
block(@.¢@,9@. 2, 100. 2, 120.6); 
color(5)3 


block(48.0,45.3,71.5,78.9); 
Boor (¢); 
strtxy(4.@,97.8); 
strout (top); 
switch(choice) { 
/* Displays one of four possible surface plots */ 
case “b’: 
ergot( ); sur2e(); sur3(); sur4(); 
strtxy(4.9,12.0)3 
St= JUST A LOT OF NOISE, TCO LOW COHERENCE LIMITS AND TOO 
LARGE AN ARBA. 3; 
strout(st); 
break; 
case ’a’: 
surl(); sur3()3 
strtxy(4.9,12.0); 
st= NO PATTERN IN THIS LARGE ARFA ; 
strout(st); 
break; 
case “c's: 
pmol ( ); sur2e(); sur3(); 
strtxy(4.8,12.8); . 
st= TOO MUCH NOISE DUE TO THE LOW COHERENCE LIMITS 35 
strout(st); 
break; 
case “d’: 
sur4(); sur5(); 
strtxy(4.0,12.0); 
st= GOOD SOLID PATTERN DOWN THE LEFT SIDE OF THE REGION 3} 
strout(st); 
break; 


4 


color(4)3 
block(48.2,78.8,85.8,98.2); 
eee 0 120-0 85.0); 


suri() {f 
strtxy(42.1,83.9); 





Sinout (@); 
strout(E)}; 
emout (9); 
strout(Y); 
eprout (2); 
strout(E); 

(on); 


Sprout ( 
strout ( 
Strout ( 
strout ( 


® 
’ 

« 
s 

? 
® 
s 
e 
s 
? 
@ 
’ 


{ 
42 
R) 
n) 
strout(wW); 
E ) 
Y) 
Ww ) 
E) 


Strout (| 
strout(R 
strout(d 
Strout (Y 
_—° 


sur4() 

strtxy(4 
strout(Y); 
strout(R 
strout(W 
strout(W 
strout(T 
strout(d 


ee 
strout(E 
strout(EF); 
strout(wW 
strout(R 
strout(E); 
strout(Q 
strout(R 
strtxy (4 
dblwid(1 
strout(W); 


ee ee Ww res 


3,78.5)3 


@,81.5); 


/* Hach of these short subroutines draws */ 


VemSomercircl=s5 of the surface plot thet 
/* is presently being displayed 


-6,78.9)3 


ale i. 
*\* 
we fe 
aA* 


strout(EB); 
strout(F); 
strout(B); 
strout(B)}; 
strout(F); 
strout(B); 
dblwid(@); 
strtxy(41.0,808.9); 
strout(B); 
strout(M); 
strout(N); 
strout(M); 
strout(E); 
strout(N); 
strout(M); 
strtxy (40.2,79.5); 
strout(M); 
strout(N); 
strout(™); 
strout(M); 
strout (3B); 
euaeout (N); 
mes 


changcolor() {f{ 
/* Pstablisnes a new color table */ 


int a [16]; ’ 

a{@] = triple(@,0,@); 
afl] = triple(15,9, 2); 
ele) = triple(@, 15,2); 
aulol) = triple(@,@,15); 
a({4] = triple(15, 5,2)3 
a({5] = triple(2,0,6); 
a(6] = triple(%,12,8); 
a(7] = triple(2,6,12); 
mie) = triple(6, 1g, ee 
af9] = triple(10, 2-65 
al1l0] = triple (ise Be) 
af{il] = triple(5,2,13); 
a({1l2]) = triple (2) 13,5)} 
eas) = triple(15,9,15);3 
a(i4} = triple(10,4,4); 
avis} = tri 1e(15,15,15); 
clrtbl(10,a); 

Fewurn;s 


} /* End of the Senario ** / 
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